Imports System.Drawing.Printing
Public Class frmPrintarray
 
    Dim WithEvents pd As New PrintDocument  'das zu druckende Dokument
    Dim pdia As New PrintDialog
 
    Dim arr(100) As String  'Das zu druckende Array
 
 
    Private Sub frmPrintarray_Load(sender As Object, e As EventArgs) Handles _
      MyBase.Load
 
 
        'Testdaten ins Array
        For i As Integer = 0 To 100
            arr(i) = "Zeile " & i.ToString
        Next i
 
        'Druckerdialog für Druckeinstellungen
        pdia.ShowDialog()
        pd.PrinterSettings = pdia.PrinterSettings
 
        'Druckauftrag 
        pd.Print()
    End Sub
 
 
 
 
    Private Sub pd_PrintPage(sender As Object, e As PrintPageEventArgs) Handles _
      pd.PrintPage
 
        'erreichter Arrayindex wird zwischen den Aufrufen gespeichert
        Static linecounter As Integer = -1
        Static pagecounter As Integer = 0
        Static lineheight As Integer
 
        pagecounter += 1
 
        Dim linefont As New Font("Arial", 10)
        Dim pageheight As Integer = e.MarginBounds.Height
        Dim pagewidth As Integer = e.MarginBounds.Width
        Dim br As New SolidBrush(Color.Black)
        Dim pageend As Boolean = False
        Dim posy As Integer = e.MarginBounds.Top
        Dim sz As SizeF
 
        Do
            linecounter += 1   'Arayindex hochsetzen
            If linecounter = 0 Then
                sz =
                  e.Graphics.MeasureString(arr(linecounter), linefont,
                  pagewidth)
                lineheight = CInt(Math.Ceiling(sz.Height))
            End If
 
            posy += lineheight
 
            If posy + lineheight <= e.MarginBounds.Height Then
                sz =
                  e.Graphics.MeasureString(arr(linecounter), linefont,
                  pagewidth)
                lineheight = CInt(Math.Ceiling(sz.Height))
                Dim lr As New Rectangle(e.MarginBounds.Left, posy, CInt(
                  sz.Width), lineheight)
 
                'Ausgabe einer Druckzeile
                e.Graphics.DrawString _
                    (arr(linecounter), linefont, br, lr)
            Else
                'Ende einer Druckseite ist erreicht  
                linecounter -= 1  'Array-Index für nächste Seite vorbereiten
                pageend = True
            End If
            'Prüfen ob Seitenende oder Arrayende erreicht?
        Loop While Not pageend AndAlso linecounter < arr.length - 1
 
        br.Dispose()  'benutzte Pinsel-Ressourcen freigeben
 
        'Druckausgabe abgeschlossen?
        e.HasMorePages = linecounter < arr.Length - 1      
    End Sub
 
End Class