BeginPrintMyPage(ByVal sender As Object, ByVal e As _
  System.Drawing.Printing.PrintEventArgs)
AktuelleDruckSeite=1
intDruckposition=0 'Position für meine Schleife
End Sub
Public Shared Sub PrintPageRechnung(ByVal sender As Object, ByVal e As _
  System.Drawing.Printing.PrintPageEventArgs)
        g = e.Graphics
        Call DruckAufJedeSeite(e)
        Select Case AktuelleDruckSeite
            Case 1
                Call Ueberschriftdrucken(e)
                Call Schleifedrucken(e)
            Case Else
               Call Schleifedrucken(e)
        End Select
        e.HasMorePages = (intPosition < 50)
 End Sub