Imports System.Drawing.Printing
 
Public Class frmPrintDemoV2
 
    Dim WithEvents button1 As New Button With {.Parent = Me, .Text = "Drucken"}
 
    Dim zähler As Integer = 0
 
    Dim arr As New List(Of String)
 
    Dim schriftart As New Font("Arial", 12, FontStyle.Regular)
 
    Private WithEvents doc As New PrintDocument()
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As  _
      System.EventArgs) Handles MyBase.Load
 
        For a As Integer = 0 To 300
            arr.Add(CStr(a))
        Next
    End Sub
 
    Private Sub Draw(ByVal g As Graphics, e As PrintPageEventArgs)
 
        Dim c As Color = Color.Black
        Dim f As Font = schriftart
 
        Dim x, y As Double
        x = e.PageSettings.Margins.Left * 25.4 / 100 '1/100 Zoll in Millimeter
        y = e.PageSettings.Margins.Top * 25.4 / 100
 
        For i As Integer = zähler To arr.Count - 1
            If (i + 1) Mod 6 = 0 Then
 
                Dim h As Integer = CInt(Math.Ceiling(g.MeasureString(arr(i), _
                  f).Height))
 
                g.DrawString(arr(i), f, New SolidBrush(c), _
                             New Point(CInt(x), CInt(Math.Ceiling(y))))
 
                x = e.PageSettings.Margins.Left * 25.4 / 100
                y += h
 
            Else
                'Standardbreite der Felder ermitteln, anhand einer Zeichenfolge 
                Dim w As Integer = CInt(Math.Ceiling(g.MeasureString("XXXX", _
                  f).Width))
 
                g.DrawString(arr(i), f, New SolidBrush(c), _
                             New Point(CInt(x), CInt(Math.Ceiling(y))))
                x += w
 
            End If
 
            zähler += 1
 
            If y > e.MarginBounds.Height * 25.4 / 100 Then Exit For
        Next i
    End Sub
 
 
 
    Private Sub Drucker(ByVal sender As Object, ByVal e As PrintPageEventArgs) _
      Handles doc.PrintPage
        Dim g As Graphics = e.Graphics
 
        g.PageUnit = GraphicsUnit.Millimeter
 
        g.TextRenderingHint = _
            Drawing.Text.TextRenderingHint.SingleBitPerPixelGridFit
 
        Me.Draw(g, e)
 
        e.HasMorePages = zähler < arr.Count - 1
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As  _
      System.EventArgs) Handles button1.Click
        zähler = 0
        doc.Print()
    End Sub
 
End Class