Const ZeilenAbstand As Integer = 2 '2 millimeter Zeilenabstand
Dim x As Integer
Dim y As Integer
Dim yteil as Integer
 
Printer.Scalemode = 6 'Angaben in Millimetern
x = 20 '2 cm rand oben auf Seite 1
yteil = Printer.ScaleWidth -40 / Tabelle.Spalten  '2 cm links und rechts = 40mm
 
For i = 1 To Tabelle.Zeilen
    x = x + Zeilenabstand + Printer.TextHeight(Tabelle(i,1))
    If x => Printer.ScaleHeight -20  Then  '2 cm Rand unten
        Printer.NewPage
        x = 20 '2 cm rand oben auf allen weiteren Seiten
    End If
    Printer.CurrentX = x
    y=20
    For o = 1 To Tabelle.Spalten
        Printer.Currenty = y
        Printer.Print Tabelle(X,Y)
        y = y + yteil
    Next o
Next i
Printer.EndDoc