Imports System.Drawing.Printing
 
Public Class Form1
 
    Dim abstand_x As Integer, abstand_y As Integer, seitenzahlen As Integer, _
      seitenzahl As Integer = 1, zähler As Integer = 0
    Dim arr As New List(Of String)
 
    Private WithEvents doc As New PrintDocument()
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        abstand_x = 838
        abstand_y = 602
 
        For a As Integer = 0 To 300
            arr.Add(CStr(a))
        Next
 
        seitenzahlen = CInt(Math.Ceiling(arr.Count / 72))
 
    End Sub
 
    Private Sub Draw(ByVal g As Graphics, ByVal x As Integer, ByVal y As _
      Integer)
        Dim c As Color = Color.Black
        Dim f As Font = New Font(schriftart, schriftgröße)
 
        For i As Integer = zähler To arr.Count - 1
            If (i + 1) Mod 6 = 0 Then
                g.TextRenderingHint = _
                  Drawing.Text.TextRenderingHint.SingleBitPerPixelGridFit
                g.DrawString(arr(i), f, New SolidBrush(c), New Point(x, y))
                x = 0 : y = CInt(y + abstand_y)
            Else
                g.TextRenderingHint = _
                  Drawing.Text.TextRenderingHint.SingleBitPerPixelGridFit
                g.DrawString(arr(i), f, New SolidBrush(c), New Point(x, y))
                x = CInt(x + abstand_x)
            End If
            zähler += 1
            If (zähler Mod 72) = 0 Then Exit For
        Next
    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.Pixel
        g.TextRenderingHint = _
          Drawing.Text.TextRenderingHint.SingleBitPerPixelGridFit
        Me.Draw(g, 0, 0)
        e.HasMorePages = seitenzahl < seitenzahlen
        seitenzahl += 1
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        doc.Print()
    End Sub
 
End Class
[/VB]

g.PageUnit = GraphicsUnit.Millimeter