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.