Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As _
  System.Drawing.Printing.PrintPageEventArgs) Handles DruckDokument1.PrintPage
        Dim numChars As Integer
        Dim numLines As Integer
        Dim stringForPage As String
        Dim strFormat As New StringFormat()
        'Abhängig von den Seiteneinstellungen, Druckbereich der Seite definieren
        Dim rectDraw As New RectangleF( _
          e.MarginBounds.Left, e.MarginBounds.Top, _
          e.MarginBounds.Width, e.MarginBounds.Height)
        'Anhand der Bereichsdefinition ermitteln, wie viel Text auf die Seite 
        ' passt
        'Höhe um eine Zeile verringern, damit Text nicht abgeschnitten wird
        Dim sizeMeasure As New SizeF(e.MarginBounds.Width, _
          e.MarginBounds.Height - DruckSchrift.GetHeight(e.Graphics))
 
        'Beim Zeichnen langer Zeichenfolgen, Wortumbruch aktivieren
        strFormat.Trimming = StringTrimming.Word
        'Anhand sizeMeasure berechnen, wie viele Zeilen auf die Seite passen
        e.Graphics.MeasureString(cDruckString, DruckSchrift, _
          sizeMeasure, strFormat, numChars, numLines)
        'Zeichenfolge berechnen, die auf die Seite passt
        stringForPage = cDruckString.Substring(0, numChars)
        'Zeichenfolge auf aktuelle Seite drucken
        e.Graphics.DrawString(stringForPage, DruckSchrift, _
          Brushes.Black, rectDraw, strFormat)
        'Falls mehr Text vorliegt, weitere Seiten anzeigen
        If numChars < cDruckString.Length Then
            'Gedruckten Text von der Zeichenfolge subtrahieren
            cDruckString = cDruckString.Substring(numChars)
            e.HasMorePages = True
        Else
            e.HasMorePages = False
 
        End If
    End Sub