Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Print Preview all pages at once
What code is necessary so that all sheets are checked before the print preview? Now each sheet is checked and printed one by one. I would like all sheets to be checked so the page numbering shows Page 1 of ? and so on.I want to be able to print one or all @ one time
Private Sub CommandButton4_Click( Dim iRow As Lon Dim HowMany As Lon HowMany = 2 With ActiveShee For iRow = 52 To (32 * HowMany - 1) + 52 Step 3 If IsNumeric(.Cells(iRow + 3, "I").Value) The If .Cells(iRow + 3, "I").Value 0 The .Cells(iRow, "A").Resize(16, 9).PrintPrevie '.printout when you're done checkin End I End I Next iRo End Wit Range("J1").Selec End Su Thank you very much for your help. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
My excel spreadsheet won't print or print preview all the pages? | Excel Worksheet Functions | |||
Number of pages in worksheet doesn't match Print Preview pages | Excel Discussion (Misc queries) | |||
Print preview/page set-up is printing 100's of blank pages | Excel Discussion (Misc queries) | |||
scrolling pages in print preview | Excel Discussion (Misc queries) | |||
My print preview in Excel does not show number of pages anymore. H | Excel Discussion (Misc queries) |