Dim i%
    Me.MousePointer = 11
    Printer.ScaleMode = 7
    Printer.Orientation = vbPRORLandscape
    Printer.FontName = "Arial"
 
    With Printer
        .FontSize = 11
        .FontBold = True
        .CurrentX = 6
        .CurrentY = 4.75
        For i = 1 To 31
            Printer.Print i & ".";
            .CurrentY = CurrentY + 1
        Next i
    End With
 
    Printer.EndDoc
    Me.MousePointer = 0