Public Shared Property tpx As Double = 100 'aktuelle textpos x 
    Public Shared Property tpy As Double = 100 'aktuelle textpos y 
    Public Shared Property texth As Integer = 8 'texthoehe 
    Public Shared Property textfont As Font = New Drawing.Font("arial", texth)
 
    Public Sub TEXTZEILE(pe As PrintPageEventArgs, zeile As String)
        tpy = tpy + texth + texth
        pe.Graphics.DrawString(zeile, textfont, Brushes.Red, tpx, tpy)
    End Sub
 
    Private Sub PrintDocument1_PrintPage(sender As Object, pe As _
      PrintPageEventArgs) Handles PrintDocument1.PrintPage
        TEXTZEILE(pe, "Neue Zeile")
    End Sub
 
    Private Sub FC_AUSGABE_Load(sender As Object, e As EventArgs) Handles _
      MyBase.Load
        HScrollBar1.Value = 50
        PrintPreviewControl1.Zoom = HScrollBar1.Value / 50
        PrintPreviewControl1.Document = PrintDocument1
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist