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.