Printer.CurrentY = (11300) 
 
ZL = 70 ' Zeilenlänge 
Text = Text9.Text 
For N = 1 To Len(Text) Step ZL 
  TextTeil = Mid(Text, N, ZL) 
  Do While Not Right(TextTeil, 1) = " " 
    Zähler = Zähler + 1 
    TextTeil = Mid(Text, N, ZL + Zähler) 
    If ZL + Zähler >= Len(Text) Then Exit Do 
  Loop 
  N = N + Zähler 
  Zähler = 0 
 
  Printer.CurrentX = (3000) 
  Printer.Print TextTeil & vbCrLf
 
  NeuerText = NeuerText & TextTeil & vbCrLf 
Next 
 
Text9.Text = NeuerText 
' Printer.Print Text9.Text 
Printer.EndDoc

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de