Private Sub Command1_Click()
    With Printer
        .ScaleMode = vbMillimeters
        .Font.Size = 14
        .CurrentY = 20
        .CurrentX = 150 - .TextWidth("Endbetrag")
        Printer.Print "Endbetrag";
        .CurrentX = 190 - .TextWidth("100,99")
        Printer.Print "100,99"
        .CurrentX = 150 - .TextWidth("abzüglich Skonto")
        Printer.Print "abzüglich Skonto"
        .EndDoc
    End With
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1