Stop Loop and return to program code error

[Rookie in PA]

I want loop to stop if cancel is clicked and eturn to program. Here is my code. Stumped - sorry if it's basic.

Do while not EOF
.
.
.
.
Printer.EndDoc
If Label9 = 5 Then ' use 20 for production
Label9 = 0
intpress = MsgBox("Print NEXT batch? (NO will cancel printing)?", vbQuestion + vbOKCancel, "Continue?")
If intpress = vbCancel Then
End ' Think problem here!
Else
End If
End If
Loop
Close ifile
End Sub

[Stewart Ross]

Hi. Use Exit Sub if you want to jump out of your subroutine at line 11 above. However, this will simply stop the sub altogether and will not close any open file cleanly. I'd suggest redesigning your sub so that you use a boolean variable of some kind as part of your loop test:

Dim blPrintMore as Boolean
blPrintMore = True
Do while Not EOF And blPrintMore
..
 blPrintMore = Not intPress = vbCancel
 if blPrintmore then
  'your print section here
 End If
Loop

-Stewart

[Rookie in PA]

Thank you!