Retraer hojas de un impresora de punto

29/05/2006 - 14:54 por Marco Elgueta | Informe spam
Quisiera retrear o devolver la hoja al punto de impresión de una impresora de
matriz de punto con hoja continua pero no se como hacerlo. No quiero usar
block de notas ni nada de esos si no que mantener mi codigo y solo
incorporarlo.
Yo utilizo este codigo para imprimir:


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

e.Graphics.DrawString(EmpresaDesencriptada, New Font("Arial", 11,
FontStyle.Regular), _
Brushes.Black, 20, 10)
e.Graphics.DrawString(EmpresaDireccionDesencriptada, New
Font("Arial", 11, FontStyle.Regular), _
Brushes.Black, 20, 30)
e.Graphics.DrawString("Comprobante Pago Minuto Atraso", New
Font("Arial", 18, FontStyle.Bold), _
Brushes.Black, 20, 70)
e.Graphics.DrawString(" N° ", New Font("Arial", 16,
FontStyle.Regular), _
Brushes.Black, 100, 100)
e.Graphics.DrawString(Me.lblFolioMinuto.Text, New Font("Arial", 16,
FontStyle.Bold), _
Brushes.Black, 180, 100)
e.Graphics.DrawString(Me.dtpFechaMinutos.Value.ToLongDateString, New
Font("Arial", 15, FontStyle.Regular), _
Brushes.Black, 65, 130)

e.Graphics.DrawString("", New
Font("Arial", 11, FontStyle.Regular), _
Brushes.Black, 25, 160)
e.Graphics.DrawString("DE MAQUINA N°", New Font("Arial", 16,
FontStyle.Regular), _
Brushes.Black, 120, 210)
e.Graphics.DrawString(Me.txtMaqOrigen.Text, New Font("Arial", 16,
FontStyle.Bold), _
Brushes.Black, 300, 210)
e.Graphics.DrawString("A MAQUINA N°", New Font("Arial", 16,
FontStyle.Regular), _
Brushes.Black, 120, 240)
e.Graphics.DrawString(Me.txtMaqDestino.Text, New Font("Arial", 16,
FontStyle.Bold), _
Brushes.Black, 300, 240)
e.Graphics.DrawString("VALOR CANCELADO $", New Font("Arial", 16,
FontStyle.Regular), _
Brushes.Black, 60, 270)

e.HasMorePages = False
End Sub

De ante mano, gracias.

pd: Llevo un mes buscando respuestas y no he podido solucionarlo!
 

Leer las respuestas

#1 DosFlores
03/06/2006 - 08:37 | Informe spam
Tendrás que mandarle un código de ESCAPE a la impresora, hay impresoras que
lo soportan y otras no. Si apagas la impresora, ¿el papel si sitúa
correctamente?. Si es así puedes usar el código ESC para inicializar la
impresora.

Deberás buscar los códigos ESC de tu impresora o al menos los que emula. Por
regla general los más comunes son los de EPSON y los IBM Propinter.

Para Epson el código de Escape para inicializar la impreso es ESC @, que son
los caracteres 27 y 64 en ASCII y en decimal.

Un saludo
Oscar Montesinos
"Marco Elgueta" escribió en el
mensaje news:
Quisiera retrear o devolver la hoja al punto de impresión de una impresora
de
matriz de punto con hoja continua pero no se como hacerlo. No quiero usar
block de notas ni nada de esos si no que mantener mi codigo y solo
incorporarlo.
Yo utilizo este codigo para imprimir:


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

e.Graphics.DrawString(EmpresaDesencriptada, New Font("Arial", 11,
FontStyle.Regular), _
Brushes.Black, 20, 10)
e.Graphics.DrawString(EmpresaDireccionDesencriptada, New
Font("Arial", 11, FontStyle.Regular), _
Brushes.Black, 20, 30)
e.Graphics.DrawString("Comprobante Pago Minuto Atraso", New
Font("Arial", 18, FontStyle.Bold), _
Brushes.Black, 20, 70)
e.Graphics.DrawString(" N° ", New Font("Arial", 16,
FontStyle.Regular), _
Brushes.Black, 100, 100)
e.Graphics.DrawString(Me.lblFolioMinuto.Text, New Font("Arial", 16,
FontStyle.Bold), _
Brushes.Black, 180, 100)
e.Graphics.DrawString(Me.dtpFechaMinutos.Value.ToLongDateString,
New
Font("Arial", 15, FontStyle.Regular), _
Brushes.Black, 65, 130)

e.Graphics.DrawString("", New
Font("Arial", 11, FontStyle.Regular), _
Brushes.Black, 25, 160)
e.Graphics.DrawString("DE MAQUINA N°", New Font("Arial", 16,
FontStyle.Regular), _
Brushes.Black, 120, 210)
e.Graphics.DrawString(Me.txtMaqOrigen.Text, New Font("Arial", 16,
FontStyle.Bold), _
Brushes.Black, 300, 210)
e.Graphics.DrawString("A MAQUINA N°", New Font("Arial", 16,
FontStyle.Regular), _
Brushes.Black, 120, 240)
e.Graphics.DrawString(Me.txtMaqDestino.Text, New Font("Arial", 16,
FontStyle.Bold), _
Brushes.Black, 300, 240)
e.Graphics.DrawString("VALOR CANCELADO $", New Font("Arial", 16,
FontStyle.Regular), _
Brushes.Black, 60, 270)

e.HasMorePages = False
End Sub

De ante mano, gracias.

pd: Llevo un mes buscando respuestas y no he podido solucionarlo!

Preguntas similares