Hola quiero imprimir 2 paginas con Printer
mi codigo es este
Código vb:
Ver originalFor 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