Hejsan !
När jag printar ut en text typ
Printer.CurrentX = 100
Printer.CurrentY = 100
Printer.Print strText
Blir hela strText utskrivev i sin fulla längd
Min fråga är hur begränsar jag strText till en viss längd.
Om strText inte får platts så hugger den av allt som inte får platts.

MVH Peter

Hej
Dufår se till att strText är editerad med radbyte (vbCrLF)

Sedan gör du lämligen Split på hela texten
Dim tmpSplit() As String,Dim i As Long
tmpSplit = Split(strText,vbCrLf) 'nu har du en array tmpSplit
Printer.CurrentX = 100
Printer.CurrentY = 100
For i = 0 To Ubound(tmpSplit)
Printer.Print tmpSplit(i)
Printer.CurrentX = 100
Next 'i
Printer.EndDoc

Sven

Du kan använda API anropet DrawText. I vilket du nager ett område som texten ska skrivas ut i.Funktionen kommer då att radbryta rader som är längre än angivet område.

Tack för hjälpen :-)
PETER