Private Sub Form_Load()
  Label1.Caption = "1" & vbCrLf & "2" & vbCrLf & "3" & vbCrLf & "4" & vbCrLf & _
    "5" & vbCrLf & "6" & vbCrLf & "7" & vbCrLf & "8" & vbCrLf & "9" & vbCrLf & _
    "10" & vbCrLf
End Sub
 
Private Sub Command1_Click()
Dim Zeile() As String
Dim N As Long
 
Zeile = Split(Label1.Caption, vbCrLf)
 
Printer.ScaleMode = vbMillimeters
Printer.CurrentY = 52
Printer.FontSize = 8
Printer.Font = "Arial"
Printer.Font.Bold = False
 
For N = 0 To UBound(Zeile)
  Printer.CurrentX = 33
  Printer.Print Zeile(N)
Next
 
Printer.EndDoc
 
End Sub