help with .HasMorePages and non-iterating printing

[Kyle Walz]

I'm working on an app where each page is a like a form (not Windows
form) with a set format. Using MSVB.NET 2003 with 1.1 framework.
Here's some code:

Private Sub PrintText(ByVal sender As Object, ByVal ev As
PrintPageEventA rgs)
Dim brush As Brush = New SolidBrush(Colo r.Black)
Dim font As Font = New Font("Arial", 10, FontStyle.Regul ar)

' first page
ev.Graphics.Dra wString(Label1. Text, font, brush, 60, 60)
ev.Graphics.Dra wString(TextBox 1.Text, font, brush, 420, 60)
' etc...
ev.Graphics.Dra wString(Label37 .Text, font, brush, 60, 840)
ev.Graphics.Dra wString(TextBox 36.Text, font, brush, 420, 840)

' tried a few different things here, I know this doesn't work :)
ev.HasMorePages = False
ev.HasMorePages = True

' second page
ev.Graphics.Dra wString(Label40 .Text, font, brush, 280, 60)
ev.Graphics.Dra wString(Label41 .Text, font, brush, 480, 60)
' etc...
ev.Graphics.Dra wString(TextBox 49.Text, font, brush, 280, 570)
ev.Graphics.Dra wString(Label54 .Text, font, brush, 480, 570)

ev.HasMorePages = False
End Sub

Each page is different with various column-n-row setups. Looking for
a way to say "next page" and keep marching to a new page's format.
Thanks for any help.

Kyle

[Kyle Walz]

(Haven't seen any replies yet, but updating progress.)
I have a gnarly (makes me feel dirty) workaround that'll do for
development. Please offer suggestions on a more elegant way to
accomplish multiple page printing.

//from print button action event
Dim result As DialogResult = PrintDialog1.Sh owDialog()
If result = DialogResult.OK Then
For i = 1 To 2
PrintDoc.Print( )
Next
End If

//printpage sub
Private Sub PrintText(ByVal sender As Object, _
ByVal ev As PrintPageEventA rgs)
Dim brush As Brush = New SolidBrush(Colo r.Black)
Dim pen As New System.Drawing. Pen(System.Draw ing.Color.Black )
Dim font As Font = New Font("Arial", 10, FontStyle.Regul ar)
Dim font1 As Font = New Font("Arial", 10, FontStyle.Bold)

' DrawString(stri ng, brush, x, y)

If (i = 1) Then page_one(ev, brush, pen, font, font1)
If (i = 2) Then page_two(ev, brush, pen, font, font1)

End Sub

The ev.HasMorePages = False is at the end of each page_number() sub.
All the Graphics.DrawSt ring calls are in the page_number subs to keep
everything tidy.

Thanks for any help.

Kyle