Imprimir multilinea
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
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
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.
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.