Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As _
  System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        ' Variable zum Speichern der Anzahl Zeilen / Seite
        Dim linesPerPage As Single
        'Schriftart, Größe, Stil initialisieren
        Dim myFont As New Font(Me.lblAbtretungText.Font.FontFamily, 10, _
          FontStyle.Regular)
        Dim myFont1 As New Font(myFont.FontFamily, 10, FontStyle.Bold)
        Dim myFont2 As New Font(myFont.FontFamily, 12, FontStyle.Underline)
        Dim myFont3 As New Font(myFont.FontFamily, 10, FontStyle.Underline)
        Dim myFont4 As New Font(Me.lblTitel.Font.FontFamily, 16, _
          FontStyle.Underline)
        Dim mBrush As Brush
        Dim lpp As Single = 0
        Dim line As Integer
        line = 0
        'vertikale Startposition festlegen
        Dim yPos As Single = e.MarginBounds.Top
        Dim ctrl As New Control
        Dim grp As New GroupBox
        Dim combo1 As New ComboBox
        Dim txtneu As New TextBox
        For Each ctrl In Me.Controls
            Dim i As Integer
            Dim strLine As String
            'Wenn das Steuerelement ein Textfeld oder eine Combobox ist...
            If ctrl.GetType Is txtneu.GetType Or ctrl.GetType Is combo1.GetType _
              Then
                If ctrl.GetType Is txtneu.GetType Then
                    txtneu.Multiline = True
                    txtneu.Text = ctrl.Text
                    If txtneu.Lines.Length > 1 Then
                        Dim c1 As Color
                        'Malstift für Linie initialisieren
                        Dim p1 As New Pen(c1.Black)
 
                        'Rechtecke festlegen für die Tabellengestaltung
                        Dim r1 As Rectangle
                        'Breite
                        r1.Width = ctrl.Width
                        'Höhe berechnet aus Höhe des Steuerelements
                        r1.Height = ctrl.Height
                        'horizontale Startposition des Rechtecks
                        r1.X = ctrl.Left
                        r1.Y = ctrl.Top
                        e.Graphics.DrawRectangle(p1, r1)
                    End If
                    Dim le1 As Integer = ctrl.Left
                    Dim to1 As Integer = ctrl.Top