otra con respecto informes...

[ccca001]

he aqui solucionado, por si a alguien le interesa:

largo = Len(Text3) / 60
i = 1

For x = 1 To Round(largo + 1, 0)
a = 60
impr = Mid(Text3, i, a)
If Len(impr) < 59 Then
Printer.FontBold = True
Printer.CurrentX = 5.5
Printer.CurrentY = y
Printer.Print UCase(impr)
Printer.FontBold = False
Exit For
End If
u = Mid(impr, a, 1)
If u <> "*" Then
Do While u <> " "
a = a - 1
impr = Mid(Text3, i, a)
u = Mid(impr, a, 1)
Loop
End If
Printer.FontBold = True
Printer.CurrentX = 5.5
Printer.CurrentY = y
Printer.Print UCase(impr)
Printer.FontBold = False
'Debug.Print impr
i = i + a
y = y + 0.5
Next x