Sub printDocument1_print(ByVal sender As Object, ByVal e As _
     PrintPageEventArgs) Handles PrintDocument1.PrintPage
 
        Try
            Static intCurrentChar As Int32
 
            Dim font As New Font(strFont, intfontsize)
 
            Dim intPrintAreaHeight, intPrintAreaWidth, marginLeft, marginTop As _
              Int32
 
            With PrintDocument1.DefaultPageSettings
                intPrintAreaHeight = .PaperSize.Height - .Margins.Top - _
                  .Margins.Bottom
                intPrintAreaWidth = .PaperSize.Width - 90
                marginLeft = 4
                marginTop = .Margins.Top
            End With
 
            Dim intLineCount As Int32 = CInt(intPrintAreaHeight / font.Height)
 
            Dim rectPrintingArea As New RectangleF(marginLeft, marginTop, _
              intPrintAreaWidth, intPrintAreaHeight)
 
            Dim fmt As New StringFormat(StringFormatFlags.LineLimit)
 
            Dim intLinesFilled, intCharsFitted As Int32
 
            e.Graphics.MeasureString(Mid(strDruckString_Bondrucker, _
              intCurrentChar + 1), font, New SizeF(intPrintAreaWidth, _
              intPrintAreaHeight), fmt, intCharsFitted, intLinesFilled)
 
            e.Graphics.DrawString(Mid(strDruckString_Bondrucker, intCurrentChar _
              + 1), font, Brushes.Black, rectPrintingArea, fmt)
 
            intCurrentChar += intCharsFitted
 
            If intCurrentChar < strDruckString_Bondrucker.Length Then
                e.HasMorePages = True
            Else
                e.HasMorePages = False
                intCurrentChar = 0
            End If
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try
End Sub