[VB.NET] Stampare su più pagine con il componente PrintDocument

[ShaleN]

Ciao. Prova a fare così:

System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage

Static blackPen As New Pen(Color.Black, 2)
Static Count As Integer = 0

Select Case Count

  Case 0
    e.Graphics.DrawEllipse(blackPen, 100, 100, 50, 50)
    e.HasMorePages = True

  Case 1
    e.Graphics.DrawLine(blackPen, 100, 100, 200, 100)
    e.HasMorePages = False

End Select

Count += 1
End Sub