Dim i As Integer
With Printer
     .ScaleMode = vbCentimeters
     .Orientation = vbPRORLandscape 'Querformat
     .PrintQuality = -3
     .FontSize = 11
     .FontBold = True
     .CurrentX = 2.5
     .CurrentY = 3.75
          For i = 1 To 31
                 Printer.Print i & ".   ";
          Next i
     .EndDoc
End With

Gru? aus dem Norden
manyki