Printer.print e ritorno a capo..

[gabcaly]

Ecco la soluzione !!!
E' ovvio che l'output è a video. Ti basta modificare il codice nelle riche che contengono Print con Printer.Print

 
  Dim Stringa, Parole, i, Frase1, Frase2
  Stringa = "Ei fu siccome immobile dato il mortal sospiro " & _
            "stette la spoglia immemore orba di tanto spiro"
  Parole = Split(Stringa)
  Frase1 = ""
  Frase2 = ""
  For i = LBound(Parole) To UBound(Parole)
    Frase1 = Frase1 & " " & Parole(i)
    If TextWidth(Frase1) < ScaleWidth Then
      Frase2 = Frase1
    Else
      Print LTrim(Frase2)
      Frase1 = Parole(i)
    End If
  Next
  Print Frase1