[SOLUCIONADO] Imprimir 2 paginas

[gasafonso]

Hola quiero imprimir 2 paginas con Printer

mi codigo es este

Código vb:

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
 

[erbuson]

Hola:

Lo siento pero no acabo de entender tu pregunta. Si lo que quieres es 'SALTAR' pagina la opcion es Printer.NewPage con lo que se produce el avance a la pagina siguiente.

[gasafonso]

No Erbuson, no es saltar la pagina sino imprimir 2 copias , ORIGINAL Y DUPLICADO

gracias

[erbuson]

Entonces mas facil, pon un bucle exterior para repetir tu proceso 2 veces

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

Puedes añadir una variable que Si COPIA = 2 Imprima DUPLICADO o algo así

[gasafonso]

gracias Erbuson

no me podes ayudar con otra duda ?

mira

http://leandroascierto.com/foro/index.php?topic=2528.0