printing problem...

hello folks, I want to print 5 pages with ("hello" + page) string in each one and I have a problem with this code:

Code:

---

Private Sub Command1_Click()
    Dim i As Long
    For i = 1 To 5
        Printer.NewPage
        Printer.Print "hello " + Str(i)
    Next i
    Printer.EndDoc
End Sub

---

why it prints a previous white page?
how would be the code to avoid this previous white page?, thansk a lot,
Angel.

Just a little rearranging

Code:

---

Private Sub Command1_Click()
Dim i As Long
    For i = 1 To 5
        Printer.Print "hello " + Str(i)
        Printer.NewPage
    Next i
    Printer.EndDoc
End Sub

---

hi Hack, thanks for your help

My pleasure. :)

If you consider this resolved, you could help us out by pulling down the Thread Tools menu and clicking the Mark Thread Resolved menu item. That will let everyone know that you have your answer.

Thank you. :)