etiquetas

fco
18 de Septiembre del 2004
Con este código imprimo una etiqueta al izquierda pero yo quisiera hacer un array o un bucle para posicionarme en unas coordenadas y seguir imprimiendo etiquetas hasta que termine el papel de etiquetas







printer.CurrentY =yPOS

printer.currentX = xPOS - printer.TextWidth(dato)

printer.print dato




Bartolom
18 de Septiembre del 2004
Con un ciclo for puedes solucionar eso, que vaya sumando una variable fija (por ejemplo el alto de la etiqueta) a la posición vertical (Y). Por ejemplo, algo así:

For i=1 to n 'donde n es el número de etiquetas, ese lo defines tú

printer.CurrentY =yPOS+i*(AltutaEtiqueta)
printer.currentX = xPOS - printer.TextWidth(dato)
printer.print dato

Next i

Así cada vez que aumente el i, se va a imprimir la etiqueta debajo de la anterior. no sé si es eso lo que necesitas específicamente, pero la idea es esa. Tú la modificas a tus requerimientos.

Saludos!
Bartolom
Chile