Devolver la hoja al principio

Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As
System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
.
.
.
e.Graphics.DrawString(str, Font, Brushes.Black, X10, Y)
.
.
'si Y es mayor que el margen de pagina entonces que vuelva a crear una
pagina nueva

If Y > 0.95 * (pageHeight + .Margins.Top) Then
e.HasMorePages = True
Exit Sub
End If
.
.
.
.

tienes que tener una variable "Y" que se incremente, cuando llegue al margen
inferior establecido creas la nueva pagina y reinicias la Variable "Y"
Gracias
Atte.
Squiur.


"Marco Elgueta" escribió:

hola a todos.
Al imprimir con Graphics.DrawString usando una impresora de punto y hoja
continua, mi idea es que al imprimir nuevamente algo la hoja vuleva a su
posición de impresion e imprima pero comienza a imprimir desde la posicion de
corte, o sea, no se retrae.
Mi idea es no hacerlo con txt y manteniendo Printing de VB.NET 2003.

Gracias de ante mano

Mira, si yo tengo este codigo. Como puedo adaptarlo al tuyo?? por fa!

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, 35)
e.Graphics.DrawString("Comprobante Pago Control Diario", New
Font("Arial", 18, FontStyle.Bold), _
Brushes.Black, 20, 100)
e.Graphics.DrawString(" N° ", New Font("Arial", 16,
FontStyle.Regular), _
Brushes.Black, 100, 130)
e.Graphics.DrawString(lblFolioControl.Text, New Font("Arial", 16,
FontStyle.Bold), _
Brushes.Black, 180, 130)
e.Graphics.DrawString("", New
Font("Arial", 11, FontStyle.Regular), _
Brushes.Black, 25, 160)
e.Graphics.DrawString("MAQUINA N°", New Font("Arial", 16,
FontStyle.Regular), _
Brushes.Black, 130, 220)
e.Graphics.DrawString(txtMaquina.Text, New Font("Arial", 16,
FontStyle.Bold), _
Brushes.Black, 280, 220)
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)
e.Graphics.DrawString("", New
Font("Arial", 11, FontStyle.Regular), _
Brushes.Black, 25, 410)

e.HasMorePages = False
End Sub


"Squiur" wrote:

Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As
System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
.
.
.
e.Graphics.DrawString(str, Font, Brushes.Black, X10, Y)
.
.
'si Y es mayor que el margen de pagina entonces que vuelva a crear una
pagina nueva

If Y > 0.95 * (pageHeight + .Margins.Top) Then
e.HasMorePages = True
Exit Sub
End If
.
.
.
.

tienes que tener una variable "Y" que se incremente, cuando llegue al margen
inferior establecido creas la nueva pagina y reinicias la Variable "Y"
Gracias
Atte.
Squiur.


"Marco Elgueta" escribió:

> hola a todos.
> Al imprimir con Graphics.DrawString usando una impresora de punto y hoja
> continua, mi idea es que al imprimir nuevamente algo la hoja vuleva a su
> posición de impresion e imprima pero comienza a imprimir desde la posicion de
> corte, o sea, no se retrae.
> Mi idea es no hacerlo con txt y manteniendo Printing de VB.NET 2003.
>
> Gracias de ante mano
>