'ermitteln der Zeichenanzahl bezogen auf Seitenbreite
    Private Function getMultiChar(ByVal theChar As String, ByVal pDoc As _
      PrintDocument, ByVal theFont As Font, _
                                  ByVal e As PrintPageEventArgs) As Short
        Dim strM As String = ""
        With pDoc.DefaultPageSettings
            Do
                strM += theChar
            Loop Until (.Bounds.Left + .Margins.Left + _
                      e.Graphics.MeasureString(strM, theFont).Width) _
                      >= (.Bounds.Right - .Margins.Right)
        End With
        getMultiChar = strM.Length - 1
    End Function

Salzburger