Estoy utilizando el metodo printer.print para mis impresiones solo que tengo una dificultad a la hora de imprimir todos mis reportes todo va bien execto por un campo texto Multilinea que a la hora de imprimir solo me imprime todo el texto encimado (no se si es la palabra correcta) es decir una arriba de la otra si que el texto se distinga.

utilizo este metodo.

'COMENTARIOS
Texto = Len(Comentarios.Text)
If Texto > 100 Then
numero = Texto \ 100
For i = 0 To numero
Comentarios.SelStart = (100 * i)
Comentarios.SelLength = 100
bloque = Comentarios.SelText
Printer.CurrentY = 14 + VerticalMargen + ((1.17 - Printer.TextHeight(bloque)) / 2)
Printer.CurrentX = 1 + HorizontalMargen
Printer.Print bloque
Next i
Else
Printer.CurrentY = 14 + VerticalMargen + ((1.17 - Printer.TextHeight(Comentarios.Text)) / 2)
Printer.CurrentX = 1 + HorizontalMargen
Printer.Print Comentarios.Text
End If


Printer.EndDoc

alguna sugerencia de mi error. espero su valiosa ayuda por lo pronto gracias...

__________________
El exito no es un milagro, es una Recopensa