Tjenare alla!
Jag har en textbox med namn txtFields(6).Text som när man skriver ut den på papper bara blir en enda lång rad. Har man skrivit in texten för hand och tryckt på radbrytning så skriver den ut perfekt. Men jag har omvandlat ett exel ark till en access databas och i vissa celler så finns ingen radbrytning och då skrivs raden ut rakt, ingen radbrytning. Hittade ett script som skulle fixa detta, men jag får det ej att funka. Det ser ut som följer.
<code>Public Sub PrintLongText(LongText As String)

Dim LongText As String, ShortLine As String
Do While InStr(1, LongText, Chr(10), 0)
Pos = InStr(1, LongText, Chr(10), 0)
ShortLine = Left(LongText, Pos)
LongText = Right(LongText, Len(LongText) - Pos)
Printer.Print Tab(1); ShortLine;
Loop
Printer.Print Tab(16); LongText
End Sub</code>
För att sedan anropa det vid utskriften skriver jag detta
<code>PrintLongText txtFields(6).Text</code>
Någon som har ett förslag, eller en bättre lösning?

Ha en fortsatt bra Påsk

//Jocke