Dim textlinenumber As Integer 'fortlaufener Zähler für Textzeilen
 
Private Sub PrintText(ByVal sender As Object, _
       ByVal ev As Printing.PrintPageEventArgs)
 
     ev.Graphics.DrawString("Headline", New Font("Arial", 14), _
                               New SolidBrush(Color.Blue), 50, 10)
 
     Dim lines() As String = TextBox1.Lines 'umbrochene Zeilen in Textbox
 
     Dim pagelinenumber As Integer
     Dim textfont As New Font("Arial", 12)
     Dim textbrush As New SolidBrush(Color.Black)
 
     '20 Zeilen pro Seite ausgeben
     While pagelinenumber < 20 And textlinenumber < lines.Count
         ev.Graphics.DrawString(lines(textlinenumber), _
         textfont, textbrush, 10, pagelinenumber * 30 + 100)
         pagelinenumber += 1
         textlinenumber += 1
     End While
 
     ev.HasMorePages = textlinenumber < lines.Count 'Folgeseite??
End Sub
 
Private Sub Button1_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button1.Click
 
     Try
         Dim PrintDoc As New System.Drawing.Printing.PrintDocument
         AddHandler PrintDoc.PrintPage, AddressOf Me.PrintText
         textlinenumber = 0 'Mit erster Zeile beginnen
         PrintDoc.Print()
     Catch ex As Exception
         MessageBox.Show("Druck-Problem!", ex.ToString)
     End Try
End Sub