Visual Basic.NET - Anular salto de pagina por codigo?

 
Vista:

Anular salto de pagina por codigo?

Publicado por Oswaldo (41 intervenciones) el 24/05/2006 19:51:10
Bien amigos alguien sabe como se puede anular el salto de pagina por codigo en VB Net.
por ejemplo tengo este codigo generado.

Private Sub imprimir2()

txtetiqueta1 = Me.Label13.Text
txtetiqueta2 = "Aqui va el nombre de la persona o proveedor"
txtetiqueta = " ** 34,567,890.90 **"
txtetiqueta3 = Letras(34567890.9)

Dim PrintDialog1 As New PrintDialog
PrintDialog1.Document = PVoucher

PVoucher.Print() 'Imprime texto aqui llamo para imprimir los datos que deseo

End Sub

' en esta parte empieza ya la impresion

Private Sub PVoucher_PrintPage(ByVal sender As Object, ByVal ev As System.Drawing.Printing.PrintPageEventArgs) Handles PVoucher.PrintPage

Dim fontt As New System.Drawing.Font("Microsoft Verdana", 11)
Dim formatexto As New System.Drawing.StringFormat
Dim lineHeight As Single
Dim linesPerPage As Single = 0
Dim leftMargin As Single = ev.MarginBounds.Left
Dim topMargin As Single = ev.MarginBounds.Top
Dim bottommargin As Single = ev.MarginBounds.Bottom
topMargin = 0
leftMargin = 0

Dim xlugar As Single, xpaguesea As Single, xvalorchq As Single, xvalorletras As Single
Dim ylugar As Single, ypaguesea As Single, yvalorchq As Single, yvalorletras As Single
xlugar = Me.xlugar.Text
ylugar = Me.ylugar.Text

xpaguesea = Me.xpaguesea.Text
ypaguesea = Me.ypaguesea.Text

xvalorchq = Me.xvalorchq.Text
yvalorchq = Me.yvalorchq.Text

xvalorletras = Me.xvalorletras.Text
yvalorletras = Me.yvalorletras.Text

txtetiqueta1 = Me.Label3.Text
txtetiqueta2 = "Aqui va el nombre de la persona o proveedor"
txtetiqueta = " ** 999,999.99 **"
txtetiqueta3 = Frase(Letras(999999.99))

ev.Graphics.DrawString(txtetiqueta1, fontt, Black, xlugar, ylugar, formatexto)
ev.Graphics.DrawString(txtetiqueta, fontt, Black, xvalorchq, yvalorchq, formatexto)
ev.Graphics.DrawString(txtetiqueta2, fontt, Black, xpaguesea, ypaguesea, formatexto)
ev.Graphics.DrawString("** " + txtetiqueta3 + " **", fontt, Black, xvalorletras, yvalorletras, formatexto)

'ES EN ESTA PARTE DONDE PEGA EL SALTO DE LINEA como anular ese salto que nome saque la hoja que se quede en la ultima linea de impresion alguien sabe como se hace algun tips?....

end sub

de ante mano muchas gracias !!!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Anular salto de pagina por codigo?

Publicado por Alberto Axcaná (1 intervención) el 20/07/2006 01:17:59
Hola!!! no se si aun es tiempo y si esto es lo que necesitas pero se me ocurre que asignes la linea --> ev.HasMorePages = False <----, con eso puedes detener que se continuen creando pags. =S
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar