' Zähler für die Seitenzahl
AktPage As Long
 
' Definition des DokumentsDim lPrintDoc As New 
' System.Drawing.Printing.PrintDocument()
lPrintDoc.DocumentName = "NAME DES DOKUMENTS"
 
' Die Funktion PrintDoc wird jedesmal aufgerufen, bevor das Dokument eine neue 
' Seite drucken will.
AddHandler lPrintDoc.PrintPage, AddressOf PrintDoc
 
' Seitenzahl initialisieren
AktPage = 0
 
' Aufruf der Routine
lPrintDoc.Print
 
' Funktion PrintDoc
Private Sub PrintDoc(ByVal sender As System.Object, ByVal PrintEvent As _
  System.Drawing.Printing.PrintPageEventArgs)
    Dim lBrush = New SolidBrush(Color.Black)
    Dim lFontNorm As Font = New Font("Arial", 10)
 
    AktPage += 1
 
    ' Maßeinheit in Millimeter    
    PrintEvent.Graphics.PageUnit = GraphicsUnit.Millimeter
 
    Select Case AktPage
    Case 1:
      ' Druck erfolgt auf der ersten Seite
        PrintEvent.Graphics.DrawString ("Seite 1", lFontNorm, 100, 200)
        PrintEvent.HasMorePages = True
    Case 2:
        ' Druck erfolgt auf der zweiten Seite
        PrintEvent.Graphics.DrawString ("Seite 2", lFontNorm, 100, 200)
        PrintEvent.HasMorePages = False
 
        ' Anfangszustand wiederherstellen
        AktPage = 0
    End Select
 
End Sub