Visual Basic Foro

Programación => Visual Basic 6 => Mensaje iniciado por: gasafonso en Abril 26, 2014, 03:44:55 pm

Título: imprimir 2 hhojas con printer
Publicado por: gasafonso en Abril 26, 2014, 03:44:55 pm

Hola tengo este codigo y quiero que me imprima en 2 hojas. garcias

Código: (VB) [Seleccionar]

For I = 1 To f_factura.grilla.Rows - 1
   If f_factura.grilla.TextMatrix(I, 1) <> "" Then
     Printer.CurrentX = 1 + (1.5 - Printer.TextWidth(Format(f_factura.grilla.TextMatrix(I, 0), "#,##0.00"))) '1
     Printer.Print Format(f_factura.grilla.TextMatrix(I, 0), "#,##0.00");
     Printer.CurrentX = 3 '3
     Printer.Print f_factura.grilla.TextMatrix(I, 2);
     Printer.CurrentX = 12 '14
     '************************Alinear una columna dentro del PicturBox para Imprimir**************************************
     Printer.CurrentX = 16 + ((1.5 - Printer.TextWidth(Format(f_factura.grilla.TextMatrix(I, 3), "#,##0.00")))) '14
     Printer.Print Format(f_factura.grilla.TextMatrix(I, 3), "#,##0.00"); ' ojo ; no baja el renglón
     Printer.CurrentX = 18 '16
     '************************Alinear una columna dentro del PicturBox para imprimir**************************************
     Printer.CurrentX = 18 + ((1.5 - Printer.TextWidth(Format(f_factura.grilla.TextMatrix(I, 4), "#,##0.00")))) ' 16.5
     Printer.Print Format(f_factura.grilla.TextMatrix(I, 4), "#,##0.00")
   End If ' <>""
 Next
 '******************************************************
 'Printer.EndDoc ' ver esto
 '*******************************************************
Call f_factura.GuardarDatos
End If
Printer.EndDoc

Título: Re:imprimir 2 hhojas con printer
Publicado por: gasafonso en Abril 27, 2014, 08:26:37 pm

ya lo solucione poniendo asi

Código: (VB) [Seleccionar]

For Copia = 1 to 2
For I = 1 To f_factura.grilla.Rows - 1
....
Next
Printer.NewPage
Next Copia
Printer.EndDoc
Call f_factura.GuardarDatos

gracias !!!