'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
        With pDoc.DefaultPageSettings
            getMultiChar = (.Bounds.Width - .Margins.Right - .Margins.Left) _
                            / e.Graphics.MeasureString(theChar, theFont).Width
        End With
    End Function

Salzburger