Imprimir multilinea

xsara1_9
07 de Mayo del 2004
Hola amigos, tengo un problemilla. Necesito imprimir un dato y lo hago de la siguiente forma
X = 1000
Y = 1000
Printer.CurrentX = X 'Situo el cursor Horizontalmente
Printer.CurrentY = Y + 300 'Situo el cursor Verticalmente
Printer.Print rsPlans!Descripción 'Le indico lo que quiero imprimir

Mi problema es que lo que tiene Descripción es un campo Memo que ocupa tres líneas, lo que consigo así es que me imprima solo la primera. El valor de X y el de Y los necesito porque tiene que ir en una posición concreta del papel.
Como puedo hacer?, ¿Existe algún contador de caracteres o algo así?

Muchas gracias

en?
07 de Mayo del 2004
hola, una forma puede ser con Split, que te corta el String de Descripción por el carácter que le digas, en tu caso el de salto de línea, y cada linea del array será una linea del campo Memo:

Dim Lineas() As string
Dim Cont As Integer
...
...
Lineas= Split(rsPlans!Descripción, vbCrLf)
For Cont = 0 to Ubound(Lineas)
Printer.CurrentX = 1000
Printer.Print Lineas(Cont)
Next
Printer.EndDoc
...
...


saludos.