Visual Basic.NET - Como anular salto de pagina por codigo?

 
Vista:

Como anular salto de pagina por codigo?

Publicado por Oswaldo (41 intervenciones) el 16/05/2006 21:00:48
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)
''Try
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

''e.Graphics.DrawString(txtetiqueta1, Font(), System.Drawing.Brushes.Black, columnas, lineas)

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 no me 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