Devolver la hoja al principio en VB.Net 2003

24/05/2006 - 16:11 por Marco Elgueta | Informe spam
Hola a todos!
Estoy trabajando con e.Graphics.DrawString y puedo imprimir sin problemas
pero cuando envio otra página la hoja no se devuelve al principio para
comenzar a imprimir sino que lo hace desde la posicion que corte la hoja.
Utilizo una impresora okidata microline turbo. En VB6 utilizaba esta linea
pero ahora no se como hacerlo:
Print #10, Chr(27) + Chr(106) + Chr(255)
Además, despues de imprimir la ultima linea la impresora sigue lanzandome
hoja hasta que termina. Como puedo controlar esto para que me termine de la
hoja en la ultima linea de impresion?? Estoy trabajando con papel continuo.
Este es parte del codigo:

Private Sub ImprimirIngresoControl(ByVal sender As Object, ByVal e As
Printing.PrintPageEventArgs)

e.Graphics.DrawString("VALOR CANCELADO $", New Font("Arial", 16,
FontStyle.Regular), _
Brushes.Black, 70, 270)
e.Graphics.DrawString(txtValorControl.Text, New Font("Arial", 16,
FontStyle.Bold), _
Brushes.Black, 320, 270)
e.Graphics.DrawString("Recaudador :", New Font("Arial", 12,
FontStyle.Regular), _
Brushes.Black, 25, 350)
e.Graphics.DrawString(lblRecaudadorControl.Text, New Font("Arial",
12, FontStyle.Bold), _
Brushes.Black, 190, 350)
e.Graphics.DrawString("Fecha Transacción : ", New Font("Arial", 12,
FontStyle.Regular), _
Brushes.Black, 25, 370)
e.Graphics.DrawString(DateTimePicker1.Value.ToString, New
Font("Arial", 12, FontStyle.Regular), _
Brushes.Black, 190, 370)

End sub

Private Sub btnImprimir_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnImprimir.Click

AddHandler Pd.PrintPage, AddressOf ImprimirIngresoControl
Pd.DocumentName = "Comprobante Pago Control"
Pd.Print()
End sub
 

Leer las respuestas

#1 Jhonny Vargas P. [MVP]
24/05/2006 - 16:23 | Informe spam
Hola Marco,

No recuerdo si es un

Print #10, Chr(27) & Chr(13)

o un

Print #10, Chr(27) & Chr(12)

Uno de los dos funciona ;)


Saludos,
Jhonny Vargas P.


"Marco Elgueta" <Marco escribió en el
mensaje news:
Hola a todos!
Estoy trabajando con e.Graphics.DrawString y puedo imprimir sin problemas
pero cuando envio otra página la hoja no se devuelve al principio para
comenzar a imprimir sino que lo hace desde la posicion que corte la hoja.
Utilizo una impresora okidata microline turbo. En VB6 utilizaba esta linea
pero ahora no se como hacerlo:
Print #10, Chr(27) + Chr(106) + Chr(255)
Además, despues de imprimir la ultima linea la impresora sigue lanzandome
hoja hasta que termina. Como puedo controlar esto para que me termine de
la
hoja en la ultima linea de impresion?? Estoy trabajando con papel
continuo.
Este es parte del codigo:

Private Sub ImprimirIngresoControl(ByVal sender As Object, ByVal e As
Printing.PrintPageEventArgs)

e.Graphics.DrawString("VALOR CANCELADO $", New Font("Arial", 16,
FontStyle.Regular), _
Brushes.Black, 70, 270)
e.Graphics.DrawString(txtValorControl.Text, New Font("Arial", 16,
FontStyle.Bold), _
Brushes.Black, 320, 270)
e.Graphics.DrawString("Recaudador :", New Font("Arial", 12,
FontStyle.Regular), _
Brushes.Black, 25, 350)
e.Graphics.DrawString(lblRecaudadorControl.Text, New Font("Arial",
12, FontStyle.Bold), _
Brushes.Black, 190, 350)
e.Graphics.DrawString("Fecha Transacción : ", New Font("Arial", 12,
FontStyle.Regular), _
Brushes.Black, 25, 370)
e.Graphics.DrawString(DateTimePicker1.Value.ToString, New
Font("Arial", 12, FontStyle.Regular), _
Brushes.Black, 190, 370)

End sub

Private Sub btnImprimir_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnImprimir.Click

AddHandler Pd.PrintPage, AddressOf
ImprimirIngresoControl
Pd.DocumentName = "Comprobante Pago Control"
Pd.Print()
End sub

Preguntas similares