Dim sText As String
sText = "Beispiel für den Ausdruck von " & _
  "längeren Textpassagen unter Berücksichtigung" & _
  "von Wort- und Zeilenumbrüchen" & vbCrLf & vbCrLf & _
  "Wie man eine Textzeile auf den Drucker ausgibt, " & _
  "weiss wohl jeder: Printer.Print strText. Was " & _
  "aber, wenn der Text länger ist und somit nicht " & _
  "in eine einzelne Zeile passt? Wäre doch schön, " & _
  "wenn der Text entsprechend umgebrochen werden " & _
  "würde - und zwar nicht mitten im Wort, sondern " & _
  "nach dem letzten Wort, welches noch in die " & _
  "Zeile gepasst hat. Die umgebrochene Textzeile " & _
  "sollte dann natürlich nicht ganz links " & _
  "beginnen, sondern genau unter der x-Position " & _
  "der ersten Zeile."
 
With Printer
  .ScaleMode = 6  ' Maßeinheit mm
 
  ' Schriftart und Schriftgrösse
  .Font.Name = "Arial"
  .Font.Size = 14
 
  ' Ausdruck an Position x=20, y=20 unter Einhaltung
  ' eines freien rechten Randes von 20mm
  PrintMultiLineText sText, 20, 20, -20
 
  ' Ausdruck im Rechteck: RECHTSBÜNDIG!
  ' x1=70, y1=aktuelle Position,
  ' Breite=100, Höhe=40
  .Font.Size = 10
  PrintMultilineText sText, 70, , 100, 40, , 1
 
  ' Ausdruck zentriert über die gesamte Seitenbreite
  .Font.Size = 11
  PrintMultilineText sText, 20, , -20, , , 2
 
  ' Ausdruck an Position x=100, y=195,
  ' rechter Rand=15mm, untere Rand=10mm,
  ' Seitenumbruch erlaubt
  ' Hinweis: Es erfolgt auch ein Seitenumbruch!
  .Font.Size = 12
  PrintMultiLineText sText, 100, 195, -15, -10, True
 
  .EndDoc
End With