Vb Code not working
 

This code only checks the first range and stops or prints. What is wrong? I would like it to continue to all 20 ranges check and skip or print.
Can you tell what is missing

Private Sub CommandButton34_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
Exit Fo
End I
End I
Next iRo
End Wit

Range("A1").Selec
End Su

Thank you very much.

Vb Code not working
 

Remove the "exit for"

IIRC, you're original code printed the first one that matched and didn't print
anymore.

(But it's been a couple of days <bg.)

bob wrote:

This code only checks the first range and stops or prints. What is wrong? I would like it to continue to all 20 ranges check and skip or print.
Can you tell what is missing?

Private Sub CommandButton34_Click()
Dim iRow As Long
Dim HowMany As Long

HowMany = 20

With ActiveSheet
For iRow = 52 To (32 * HowMany - 1) + 52 Step 32
If IsNumeric(.Cells(iRow + 3, "I").Value) Then
If .Cells(iRow + 3, "I").Value 0 Then
.Cells(iRow, "A").Resize(16, 9).PrintPreview
'.printout when you're done checking
Exit For
End If
End If
Next iRow
End With

Range("A1").Select
End Sub

Thank you very much.

--

Dave Peterson

Vb Code not working
 

How do I include a header to print on each page. The header is at the
top of the first sheet.

Thank you,

Bob



*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

Vb Code not working
 

One option would be to use the rows to repeat at top setting.

in page setup, on the last tab, look at the rows to repeat at top setting.

Turn on the macro recorder to see how to set it in code (set it manually
with the macro recorder turned on).

--
Regards,
Tom Ogilvy

"Bob Ciepiela" wrote in message
...
How do I include a header to print on each page. The header is at the
top of the first sheet.

Thank you,

Bob



*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!