Imprimir listados URGENTE!!!
Publicado por Ro (26 intervenciones) el 17/08/2004 15:08:58
Hola yo tengo que imprimir una lista de elementos que traigo de un formulario el maximo son 11 y los tengo en una matriz de textbox. Yop imprimo encabezados y luego con un for voy imprimiendo cada linea pero NO funciona me imprime la primera y luego pasa a la instruccion siguiente. POr ej hago asi:
For i = 1 To 11
Printer.CurrentX = 2.5
Printer.CurrentY = (intLinea + 0.5)
Printer.Print frmFactura.txtCant(i - 1).Text
Printer.CurrentX = 4.5
Printer.CurrentY = (intLinea + 0.5)
Printer.Print frmFactura.txtDes(i - 1).Text
Printer.CurrentX = 12.5
Printer.CurrentY = (intLinea + 0.5)
Printer.Print frmFactura.txtPu(i - 1).Text
Printer.CurrentX = 14.5
Printer.CurrentY = (intLinea + 0.5)
Printer.Print frmFactura.txtPf(i - 1).Text
Next
For i = 1 To 11
Printer.CurrentX = 2.5
Printer.CurrentY = (intLinea + 0.5)
Printer.Print frmFactura.txtCant(i - 1).Text
Printer.CurrentX = 4.5
Printer.CurrentY = (intLinea + 0.5)
Printer.Print frmFactura.txtDes(i - 1).Text
Printer.CurrentX = 12.5
Printer.CurrentY = (intLinea + 0.5)
Printer.Print frmFactura.txtPu(i - 1).Text
Printer.CurrentX = 14.5
Printer.CurrentY = (intLinea + 0.5)
Printer.Print frmFactura.txtPf(i - 1).Text
Next
Valora esta pregunta


0