Udskrivning af tekst

prøv med denne:

scalemode 6 er millimeter
printer.currentx - sngwidth angiver at højre kant er 20 cm og den skal starte med at skrive tekstens bredde til venstre for denne.

Private Sub Command1_Click()
  Form1.ScaleMode = 6
  Printer.ScaleMode = 6
  Dim sngWidth As Single
  Dim strText As String
  strText = Text1.Text
  sngWidth = TextWidth(strText)
  Printer.CurrentX = 200 - sngWidth
  Printer.Print strText
End Sub