<code><font color=green>' Text drucken mit automatischem Wortumbruch
' 
' sText = Text, der gedruckt werden soll
'    (kann optional auch harte Zeilenumbrüche enthalten)
' xPos = linker Rand, der frei gehalten werden soll
' MaxWidth = optional
'    0 = kein freier rechter Rand
'    -Wert = freier rechter Rand in mm
'    sonst = max. Ausdruckbreite für den Text</font>
Public Sub PrintMultilineTextBox(ByVal sText As String, ByVal xPos As Long, _
  Optional ByVal MaxWidth As Long = 0)
 
  Dim sLine() As String
  Dim I As Integer
  Dim NextLine As String
 
  With Printer
    <font color=green>' Maximale Druckbreite für die Textbox</font>
    If MaxWidth = 0 Then 
      MaxWidth = .ScaleWidth - xPos
    ElseIf MaxWidth < 0 Then
      MaxWidth = .ScaleWidth - xPos - MaxWidth
    End If
 
    <font color=green>' zunächst die "harten" Zeilenumbrüche ermitteln</font>
    sLine = Split(sText, vbCrLf)
    For I = 0 To UBound(sLine)
      If .TextWidth(sLine(I)) <= MaxWidth Then
        <font color=green>' Zeile hat keine "Überbreite"</font>
        Printer.CurrentX = xPos
        Printer.Print sLine(I)
      Else
        <font color=green>' Zeile umbrechen</font>
        Do
          NextLine = ""
          While .TextWidth(sLine(I)) > MaxWidth
            NextLine = Right$(sLine(I), 1) + NextLine
            sLine(I) = Left$(sLine(I), Len(sLine(I)) - 1)
          Wend
 
          <font color=green>' Wortumbruch prüfen</font>
          CheckUmbruch NextLine, sLine(I)
          Printer.CurrentX = xPos
          Printer.Print sLine(I)
          sLine(I) = NextLine
        Loop Until Trim$(sLine(I)) = ""
      End If
    Next I
  End With
End Sub
 
<font color=green>' Wortumbruch beachten</font>
Private Sub CheckUmbruch(NextLine As String, Text As String)
  Const Check = " .,;:-_!?(/+"
 
  If NextLine <> "" Then
    If InStr(Check, Left$(NextLine, 1)) = 0 Then
      While InStr(Check, Right$(Text, 1)) = 0 And Len(Text) > 0
        NextLine = Right$(Text, 1) + NextLine
        Text = Left$(Text, Len(Text) - 1)
      Wend
    End If
  End If
End Sub</code>

<code>PrintMultilineTextBox Text1.Text, 20, -20</code>