imprimir varias páginas con el printdocument en vb.net

[CarmenRocio]

Hola foros como estan aqui nuevamente pues necesito imprimir varias paginas en print document pasa que tengo 715 registro y lo paso con un FOR pero en el print document cada registro se chanca encima uno del otro y me dijeron que utilizara el


e.HasMorePages = True

pero igual se sigue chancando la info si saben sobre esto les agradeceria mucho .
GRACIAS.

[Aquaventus]

postea tu code carmen, talvez asi podamos identificador el posible error que puedas estar cometiendo. Saludos!

[CarmenRocio]

Primero lo que hago por el momento estoy llenando solo 2 registro mejor dicho dos trabajadores y lo que hago primero es click en el boton vista peliminar:
Private Sub btnPreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPreview.Click
imprimir(True)
End Sub

Luego la función imprimir es esta:como es vista previa le doy true bueno es asi como estube analizando ya que empece de cero con esto y tengo ya dos días nuriendome:

Private Sub imprimir(ByVal esPreview As Boolean)
' imprimir o mostrar el PrintPreview
If prtSettings Is Nothing Then
prtSettings = New PrinterSettings
End If
If chkSelAntes.Checked Then
If seleccionarImpresora() = False Then Return
End If
If prtDoc Is Nothing Then
prtDoc = New PrintDocument
lineaActual = 0
prtDoc.PrinterSettings = prtSettings
Dim TamañoPersonal As Printing.PaperSize
Dim Ancho As Short
Dim Alto As Short
Try
Ancho = Short.Parse("1600")
Alto = Short.Parse("655")
TamañoPersonal = New Printing.PaperSize("imp", Ancho, Alto)
prtDoc.DefaultPageSettings.PaperSize = TamañoPersonal
prtDoc.OriginAtMargins = True
Catch ex As Exception
MessageBox.Show(ex.Message, ex.Source, MessageBoxButtons.OK)
End Try
AddHandler prtDoc.PrintPage, AddressOf prt_PrintPage
End If
If esPreview Then
Dim prtPrev As New PrintPreviewDialog
prtPrev.Document = prtDoc
prtPrev.ShowDialog()
Else
prtDoc.Print()
End If
End Sub

No olvidar que este código lo saque del guille pero lo he modificado a mis requerimientos por otro lado la funcion prt_PrintPage

Private Sub prt_PrintPage(ByVal sender As Object, ByVal e As PrintPageEventArgs)
' Este evento se produce cada vez que se va a imprimir una página
Dim printFont As System.Drawing.Font
printFont = prtFont

'Datos es una lista generica de mi base de datos trabajadores

For Each info As BoInfo In Datos
nContador += 1
e.Graphics.DrawRectangle(New Pen(Color.Red, 1), -75, -75, 1585, 639)

e.Graphics.DrawString("Código", printFont, Brushes.Black, 170, 60)
e.Graphics.DrawString(info.codigo, printFont, Brushes.Black, 460, 60)
Next
If nContador < Datos.Count Then
e.HasMorePages = True ' Todavia faltan mas paginas
End If
End Sub

ya este seria el código primero pasa por el primer trabajados luego el segundo y se chanca encima pero yo quiero que se imprima el segundo cliente en otra pagina ya que no solo es su código es un monto de registros que tengo que imprimir espero me ayudes etube bucando en la web pero solo hablan del

e.HasMorePages = True

[CarmenRocio]

Tambien se puede utilizar el e.HasMorePages = Flase pero cuando lo utilizo empiezo a recorrer hace un bucle indefinitivo y la verdad no se como podria utilizarlo o la pregunta es habra otra forma de hacer que mi data se mustre en la páginas consecutivas

[Aquaventus]

trata de poner el e.HasMorePage = true al final dentro de tu for, porque si mas no me equivoco eso generaria otra pagina lo cual talvez nunca llama ya que lo pones fuera de tu for

Código vb:

Private Sub prt_PrintPage(ByVal sender As Object, ByVal e As PrintPageEventArgs)
' Este evento se produce cada vez que se va a imprimir una página
Dim printFont As System.Drawing.Font
printFont = prtFont
 
'Datos es una lista generica de mi base de datos trabajadores
 
For Each info As BoInfo In Datos
nContador += 1
e.Graphics.DrawRectangle(New Pen(Color.Red, 1), -75, -75, 1585, 639)
 
e.Graphics.DrawString("Código", printFont, Brushes.Black, 170, 60)
e.Graphics.DrawString(info.codigo, printFont, Brushes.Black, 460, 60)
e.HasMorePages = True
Next
End Sub
 

si aun asi no da probablemente sea por el orden, la logica if ponla primero y la logica for ponla despues.

[CarmenRocio]

LO QUE HICE FUE ESTO

Private Sub prt_PrintPage(ByVal sender As Object, ByVal e As PrintPageEventArgs)
' Este evento se produce cada vez que se va a imprimir una página
Dim printFont As System.Drawing.Font
printFont = prtFont

'Datos es una lista generica de mi base de datos trabajadores

For Each info As BoInfo In Datos
nContador += 1
e.Graphics.DrawRectangle(New Pen(Color.Red, 1), -75, -75, 1585, 639)

e.Graphics.DrawString("Código", printFont, Brushes.Black, 170, 60)
e.Graphics.DrawString(info.codigo, printFont, Brushes.Black, 460, 60)

If nContador < Datos.Count Then
e.HasMorePages = True ' Todavia faltan mas paginas
End If

Next
End Sub


-PUSE EL IF ADENTRO COMO ME DIJISTES ME SALIO UFFFFFF PORFIN PUEDO VER LAS DOS PAGINAS PERO AHORA TENGO OTRO PROBLEMA DE NUNCA ACABAR QUE LOS DOS REGISTRO SALEN EN LAS DOS HOJAS
ASI
EN LA PIMERA HOJA SALE
24 del 01/01/2011 al 31/02/2011 000001
24 del 01/01/2011 al 31/02/2011 000002

EN LA SEGUNA HOJA SALE LO MISMO

24 del 01/01/2011 al 31/02/2011 000001
24 del 01/01/2011 al 31/02/2011 000002
PERO YO QUIERO QUE SOLO SALGA CADA CODIGO EN SU HOJA EL UNO Y APARTE EL OTRO
GRACIAS POR LA AYUDA AQUAVENTUS.

[CarmenRocio]

*Por otro lado le di imprimir ala en la vista preliminar pero solo se envio 1 documento mmmm pense que la vista premilinar del guille agarraba todas la hojas bueno.....

*Luego le di imprimir la segunda hoja pero la data se movio mas abajo. un poco nada mas ?? raro?

*Me di cuenta que se genera las 2 hojas pero la data se chanca al menos que seha por las coodenaras de "X" y "Y" pero la logica seria que tenga la mima posicion de coodenaras, pero diferentes hojas o me equiovoco

[Aquaventus]

DATOS es un datatable?, porque si es asi en tu for each podria separarlo por fila y mostrarlos separados, porque lo que veo es que mandas todo un listado o me equivoco?

[CarmenRocio]

* Si AQUAVENTUS es una lista generica mejor dicho he creado una funcion que me devuele o retorna esta lista. en esa funcion llamo toda la data utilzando un procedure: y esta lista la utilizo para el FOR EACH por que asi saco el codigo y lo pongo en la cordenada que quiero y asi su nombre toda la data del primer items de la lista. me dejo entender.

*He preguntado a algunos amigos y me dijeron que haga un salto de carro para que empiese de nuevo a crear la siguiente pagina con la data pero como será el salto de carro del printdocument????

[Aquaventus]

OK, ahora la variable "BoInfo" que tipo de control es?

[CarmenRocio]

BoInfo : es mi CLASE: te explico aca trabajo en base a capas
primero creo mi clase en este caso es BoInfo que tiene este codigo a mas ya que el trabajador tiene como mas de 80 registros es asi:

Código VB:

Public Class BoInfo
Private lcodigo As String
 
    Public Property codigo() As String
        Get
            Return lcodigo
        End Get
        Set(ByVal value As String)
            lcodigo = value
        End Set
    End Property
End Class
 

*Luego creo una clase de tipo lista asi:

Código VB:

Public Class BoList
    Inherits List(Of BoInfo)
    Public Sub New()
 
    End Sub
End Class
 

*En mi funcion intancio mi Boinfo con sus parametros y lo lleno a la lista. y desde el formulario lo llamo a traves de mi capa de dato.
asi:
Datos = lbl.funcion()

espero averme explicado

[CarmenRocio]

Espero que alguien me ayude la forma de que no se repita mi data
Gracias

[CarmenRocio]

Código HTML:

hola estoy nuevamente en el foro para ve si alguien me ayuda en esto del print document  necesito terminarlo, me esta volviendo l..a ya tengo varios días con esto y en la web no ecuentro lo que relamente quiero
 

[CarmenRocio]

hola estoy nuevamente en el foro para ve si alguien me ayuda en esto del print document necesito terminarlo, me esta volviendo l..a ya tengo varios días con esto y en la web no ecuentro lo que relamente quiero

[Aquaventus]

hola sorry la demora >.< ando en asuntos del trabajo, intenta con esto

Código vb:

For Each info As BoInfo In Datos
nContador += 1
If nContador < Datos.Count Then
 
e.Graphics.DrawRectangle(New Pen(Color.Red, 1), -75, -75, 1585, 639)
 
e.Graphics.DrawString("Código", printFont, Brushes.Black, 170, 60)
e.Graphics.DrawString(info.codigo, printFont, Brushes.Black, 460, 60)
 
e.HasMorePages = True ' Todavia faltan mas paginas
End If
 
Next
End Sub
 

PDT: NO ES NECESARIO QUE HAGAS SPAM :S

[CarmenRocio]

Hola aquaventus buenos días gracias por la ayuda y he probado con eso, y se genera la seguda hoja pero sin data. le hice un seguimiento y he motado que pasa el primer registro y hace e.HasMorePages = True pasa el siguiente y es e.HasMorePages = True pero se sigue chancando la data cuando temina es e.HasMorePages = True como es true se vuelve a llamar asi misma la funcion y es alli donde genera la segunda hoja pero sin data habra alguna forma de decirle newpage despues del true como en visual.

De antemano Gracias.

[Aquaventus]

haber pruebalo asi :

Código vb.net:

Dim printFont As System.Drawing.Font
        Dim linesPerPage As Single = 1 'Defino 1 linea por hoja
        Dim count As Single = 0 'Defino un contador
        Dim nContador As Integer = 0
        Dim printFont As System.Drawing.Font
        printFont = prtFont
 
        For Each info As BoInfo In Datos
            If nContador < linesPerPage Then
                e.Graphics.DrawRectangle(New Pen(Color.Red, 1), -75, -75, 1585, 639)
                e.Graphics.DrawString("Código", printFont, Brushes.Black, 170, 60)
                e.Graphics.DrawString(info.codigo, printFont, Brushes.Black, 460, 60)
            Else
                count = 0
                Exit For
            End If
            
            nContador += 1
            count += 1
        Next
        If nContador < Datos.Count Then
            e.HasMorePages = True
        Else
            e.HasMorePages = False
        End If
 

[CarmenRocio]

Hola Foros profín despues de tantas trabas se econtro la solucuión gracias a mi compañero de trabajo milton quien es un capo en estas cosas de la progrmación y logica bueno la SOLUCIÖN es :

Código vb:

Private Sub prt_PrintPage(ByVal sender As Object, ByVal e As PrintPageEventArgs)
        ' La fuente que vamos a usar para imprimir.
        Dim printFont As System.Drawing.Font = New Font("Arial", 8) 'prtFont
        Dim topMargin As Double = e.MarginBounds.Top
        Dim yPos As Double = 0
        Dim linesPerPage As Double = 0
        Dim count As Integer = 0
        Dim texto As String = ""
 
        ' Calculamos el número de líneas que caben en cada página. 
        linesPerPage = e.MarginBounds.Height / printFont.GetHeight(e.Graphics)
 
        While count < linesPerPage AndAlso i < Datos.Count
            Dim info As BoInfoBOLETA = Datos(i)
            e.Graphics.DrawRectangle(New Pen(Color.Red, 1), -75, -75, 1585, 639)
            e.Graphics.DrawString("24 del 01/01/2011 al 31/02/2011", printFont, Brushes.Black, 170, 60)
            e.Graphics.DrawString(CStr(Format(Date.Now, "dd/MM/yyy")), printFont, Brushes.Black, 470, 60)
            e.Graphics.DrawString(info.codigo, printFont, Brushes.Black, 70, 80)
            e.Graphics.DrawString(info.nombres, printFont, Brushes.Black, 200, 80)
.
.
.
.
.
.
.
.
.
            count = CInt(count + 35.61)
            i = i + 1
 
        End While
 
        If i < Datos.Count Then
            e.HasMorePages = True
        Else
            e.HasMorePages = False
            i = 0
        End If
 

Bueno mi página tiene 35 lineas aproximadamene cada vez que cumple la condicion se llena de data mi primera lista de lo contario se vuelve a ejecutar el printpage pero ya en la siguiente. bueno esa es la sulución y si sale bueno porfin puedo ver los 712 trabajadores y la data qeu tiene cada uno uuuFFF
gracias a ti aquaventus por tu tiempo y ayuda.

Besos
cuidate y gracias estamos en contacto

[Aquaventus]

ehmm gracias! XD pero justo es lo mismo que habia hecho y que trataba de acomodar justo tal y como esta en tu solucion que es esta :
imprimir datos en varias paginas printdocument

[titofo]

Perdón por la pregunta: ¿El prtDoc es un control? ¿El control PrintDocument?

[Aquaventus]

Es un PrintDocument titofo. Saludos!.

[titofo]

Iniciado por Aquaventus

Es un PrintDocument titofo. Saludos!.

Si de la clase PirntDocument. Gracias.

[Ausberto]

yo tengo este proble..... cada que mando a imprimir un documento como son facturas se registran rapidamente y se mandan a imprimir cuando llega a imprimir muchas veces registro 4 ventas se mandan a imprimir pero no imprimen algunas ventas del medio ejemplo, mando registro 23, 24, 25 solo imprime 23 y 25... este es mi codigo..

Código:

 Dim printFont As System.Drawing.Font = New Font("Arial", 10)
            Dim topMargin As Double = e.MarginBounds.Top
            Dim yPos As Double = 0
            Dim linesPerPage As Double = 0
            Dim count As Integer = 0
            Dim texto As String = ""
            Dim LNormal As New Font("Arial", 9)
            Dim LChiquita As New Font("Arial", 8)
            Dim LGrande As New Font("Arial", 11)
            Dim XCliente, XNit, XFecha, XIdv, XTipo, XCajera As String
            Dim NXVta As String
            NXVta = FTpv.Label19.Text

            'IMPRIMIMOS NOTA DE VENTA
            If Op7 = True Then
                ' Calculamos el número de líneas que caben en cada página
                linesPerPage = e.MarginBounds.Height / printFont.GetHeight(e.Graphics)
                Dim formato As New StringFormat()
                formato.Alignment = StringAlignment.Far
                formato.LineAlignment = StringAlignment.Near

                'CALCULAMOS NUMERO DE FILA
                yPos = 30
                ' Imprimimos las cabeceras
                e.Graphics.DrawString("LUJAN SUPERMERCADO", LGrande, Brushes.Black, 40, yPos)
                yPos += 20
                e.Graphics.DrawString("CASA MATRIZ", LNormal, Brushes.Black, 80, yPos)
                yPos += 15
                e.Graphics.DrawString("Calle Avaroa Nº 125 entre Arenales y ", LChiquita, Brushes.Black, 30, yPos)
                yPos += 15
                e.Graphics.DrawString("y 24 de Septiembre Zona B/25 de Diciembre", LChiquita, Brushes.Black, 20, yPos)
                yPos += 15
                e.Graphics.DrawString("Tel. [phone]    Telf. Fax [phone]", LChiquita, Brushes.Black, 30, yPos)
                yPos += 15
                e.Graphics.DrawString("Montero - Santa Cruz - Bolivia", LChiquita, Brushes.Black, 40, yPos)
                yPos += 20
                e.Graphics.DrawString("NOTA DE VENTA ", LGrande, Brushes.Black, 60, yPos)
                yPos += 20
                e.Graphics.DrawString("..............................................................................", LChiquita, Brushes.Black, 0, yPos)
                'DATOS DEL CLIENTE
                T = New DataTable
                Com.CommandText = "select v.id, v.idv, v.idcli, v.senor, d.idpro, d.detalle, d.cant, u.corto as und, d.precio, d.monto, v.ccon, v.nauto, v.totalc, v.fecha, v.hora, v.tipov, v.cajera, v.bs, v.cambio, v.nt from t_venta_d d, t_venta v, t_unidad u where v.idv = d.idv and d.und = u.nombre and v.idv = " & "'" & NXVta & "'" & " order by d.idvd "
                D.SelectCommand = Com
                D.Fill(T)
                XCliente = "NOMBRE: " & T.Rows(0).Item("SENOR").ToString
                XIdv = "Nº VENTA: " & T.Rows(0).Item("IDV").ToString
                XNit = "NIT/ CI: " & T.Rows(0).Item("IDCLI").ToString
                XFecha = "FECHA: " & Format(T.Rows(0).Item("FECHA"), "dd/MM/yyyy") + "  " + vbTab + Format(CDate(T.Rows(0).Item("HORA").ToString), "hh:mm")
                XTipo = T.Rows(0).Item("TIPOV").ToString
                XCajera = T.Rows(0).Item("CAJERA").ToString

                'ÀGORA IMPRIMIMOS LOS DATOS
                yPos += 15
                e.Graphics.DrawString(XIdv, LNormal, Brushes.Black, 0, yPos)
                yPos += 15
                e.Graphics.DrawString(XFecha, LNormal, Brushes.Black, 0, yPos)
                yPos += 15
                Dim x1, x2 As Integer
                XCliente = XCliente & " "
                If Len(XCliente) > 30 Then
                    For x1 = 0 To Len(XCliente) - 1
                        If XCliente(x1) = " " Then
                            If x1 > 30 Then
                                e.Graphics.DrawString(Mid(XCliente, 1, x2 - 1), LNormal, Brushes.Black, 0, yPos)
                                yPos += 15
                                e.Graphics.DrawString(Mid(XCliente, x2, Len(XCliente)), LNormal, Brushes.Black, 60, yPos)
                                yPos += 15
                                Exit For
                            Else
                                'nuevo comienzo
                                x2 = x1 + 1
                            End If
                        End If
                    Next
                Else
                    e.Graphics.DrawString(XCliente, LNormal, Brushes.Black, 0, yPos)
                    yPos += 15
                End If
                e.Graphics.DrawString(XNit, LNormal, Brushes.Black, 0, yPos)
                yPos += 15
                e.Graphics.DrawString("..............................................................................", LChiquita, Brushes.Black, 0, yPos)

                'AGORA DETALLE
                yPos += 10
                texto = "CANTIDAD    " + "        PRECIO " + "        IMPORTE"
                e.Graphics.DrawString(texto, LNormal, Brushes.Black, 0, yPos)
                yPos += 10
                e.Graphics.DrawString("..............................................................................", LChiquita, Brushes.Black, 0, yPos)
                'IMPRIMIR DETALLE
                yPos += 15
                For X As Integer = 0 To T.Rows.Count - 1
                    e.Graphics.DrawString(Mid(T.Rows(X).Item("DETALLE").ToString, 1, 30), LNormal, Brushes.Black, 0, yPos)
                    yPos += 15
                    e.Graphics.DrawString(Math.Round(T.Rows(X).Item("CANT"), 2), LNormal, Brushes.Black, 10, yPos)
                    e.Graphics.DrawString(T.Rows(X).Item("UND").ToString, LNormal, Brushes.Black, 60, yPos)
                    e.Graphics.DrawString(Math.Round(T.Rows(X).Item("PRECIO"), 2), LNormal, Brushes.Black, 160, yPos, formato)
                    e.Graphics.DrawString(Math.Round(T.Rows(X).Item("MONTO"), 2), LNormal, Brushes.Black, 240, yPos, formato)
                    yPos += 15
                Next

                e.Graphics.DrawString("..............................................................................", LChiquita, Brushes.Black, 0, yPos)
                yPos += 15
                e.Graphics.DrawString("TOTAL A PAGAR: ", LNormal, Brushes.Black, 0, yPos)
                e.Graphics.DrawString(Math.Round(T.Rows(0).Item("TOTALC"), 2), LNormal, Brushes.Black, 240, yPos, formato)
                yPos += 15
                e.Graphics.DrawString("TOTAL RECIBIDO: ", LNormal, Brushes.Black, 0, yPos)
                e.Graphics.DrawString(Math.Round(T.Rows(0).Item("BS"), 2), LNormal, Brushes.Black, 240, yPos, formato)
                yPos += 15
                e.Graphics.DrawString("TOTAL CAMBIO: ", LNormal, Brushes.Black, 0, yPos)
                e.Graphics.DrawString(Math.Round(T.Rows(0).Item("CAMBIO"), 2), LNormal, Brushes.Black, 240, yPos, formato)
                yPos += 30

                Dim largo = Len(CStr(Format(CDec(T.Rows(0).Item("TOTALC")), "#,###.00")))
                Dim decimales = Mid(CStr(Format(CDec(T.Rows(0).Item("TOTALC")), "#,###.00")), largo - 2)
                Dim Letras = UCase(ALetras(Math.Round(T.Rows(0).Item("TOTALC"), 2), " Bs."))
                'IMPRESION DE LETRAS NUMERICAS
                Letras = "SON: " & Letras & " "

                If Len(Letras) > 29 Then
                    For x1 = 0 To Len(Letras) - 1
                        If Letras(x1) = " " Then
                            If x1 > 29 Then
                                e.Graphics.DrawString(Mid(Letras, 1, x2 - 1), LNormal, Brushes.Black, 0, yPos)
                                yPos += 15
                                e.Graphics.DrawString(Mid(Letras, x2, Len(Letras)).Trim, LNormal, Brushes.Black, 0, yPos)
                                yPos += 15
                                Exit For
                            Else
                                'nuevo comienzo
                                x2 = x1 + 1
                            End If
                        End If
                    Next
                Else
                    e.Graphics.DrawString(Letras, LNormal, Brushes.Black, 0, yPos)
                    yPos += 15
                End If
                yPos += 10
                'verificar EL TAMAÑO DE LETRAS PARA DIVIDUIRLO Y SABER CUANTAS LINEAS PUEDEN SER Y PONERLO EN UN CICLO
                e.Graphics.DrawString("VENDEDOR: ", LNormal, Brushes.Black, 0, yPos)
                e.Graphics.DrawString(T.Rows(0).Item("CAJERA").ToString, LNormal, Brushes.Black, 75, yPos)
                e.Graphics.DrawString(T.Rows(0).Item("TIPOV").ToString, LNormal, Brushes.Black, 150, yPos)
                yPos += 40

                e.Graphics.DrawString("GRACIAS POR SU PREFERENCIA!!! ", LNormal, Brushes.Black, 10, yPos)
                yPos += 20


                e.HasMorePages = False
            End If

les pido ayuda por favor apenas logre amrmar este code
es para un local de venta de comida rapida osea imprime muchas veces
:s tress: