[SOLUCIONADO] Imprimir mas de una hoja

[Allan2904]

Una pregunta rápida antes de entrar al tema. Como tomo el valor de la celda a la que le hice click en un datagridviw? Vi algo de e.RowIndex e.ColumnIndex pero no me funcionan.

Bueno ahora si recién uso este control por lo cual el código que les mostraré lo encontré por Internet y lo que mas o menos entendí lo modifiqué a mi gusto.

Código vb:

Sub RellenarEsp(ByVal str As String, ByVal columna As Int32)
        Dim r As Int32
        Dim cad As String = ""
        Dim digito As Int32
        ncadena = ""
        Dim numcif As Int32 = str.Length
 
        Select Case columna
            Case 0 : digito = 12
            Case 1 : digito = 12
            Case 2 : digito = 12
        End Select
        If numcif > digito Then
            ncadena = Mid(str, 1, digito)
        Else
            For r = 1 To (digito - numcif)
                cad = " "
                ncadena = ncadena & cad
            Next
            ncadena = str & ncadena
        End If
    End Sub
 
    Sub RellenarEsp2(ByVal str As String, ByVal columna As Int32)
        Dim r As Int32
        Dim cad As String = ""
        Dim digito As Int32
        ncadena = ""
        Dim numcif As Int32 = str.Length
 
        Select Case columna
            Case 0 : digito = 12
            Case 1 : digito = 12
            Case 2 : digito = 12
            Case 3 : digito = 12
            Case 4 : digito = 12
        End Select
        If numcif > digito Then
            ncadena = Mid(str, 1, digito)
        Else
            For r = 1 To (digito - numcif)
                cad = " "
                ncadena = ncadena & cad
            Next
            ncadena = str & ncadena
        End If
    End Sub
 
    Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        Dim linesPerPage As Single = 0
        Dim yPos As Single = 0
        Dim leftMargin As Single = 30
        Dim topMargin As Single = e.MarginBounds.Top - 50
        Dim line As String = Nothing
        linesPerPage = e.MarginBounds.Height / printFont.GetHeight(e.Graphics)
 
        Dim Fil, Col As Int32
        Dim LString As String = ""
        LString = LString & "Contabilidad Mensual " & vbCrLf & vbCrLf & vbCrLf
        LString = LString & "Fecha de impresión: " & Today & vbCrLf & vbCrLf & vbCrLf & _
        "------------------------------------------------------------------------------------------------" & vbCrLf & vbCrLf & vbCrLf
        LString = LString & "Estadías: " & ComboBox2.Text & "" & vbCrLf & vbCrLf & vbCrLf
        LString = LString & "Tipo           Habitación     Total" & vbCrLf & vbCrLf
        count = 0
        For Fil = 0 To DataGridView2.Rows.Count - 1
            For Col = 0 To DataGridView2.Columns.Count - 1
                Call RellenarEsp(DataGridView2.Item(Col, Fil).Value.ToString, Col)
                LString = LString & ncadena & Space(3)
            Next
            count += 1
            LString = LString & vbCrLf
        Next
        LString = LString & "" & vbCrLf
        LString = LString & "Total:     " & TextBox3.Text & "" & vbCrLf & vbCrLf & vbCrLf & _
        "------------------------------------------------------------------------------------------------" & vbCrLf & vbCrLf & vbCrLf
        LString = LString & "Reservas: " & ComboBox3.Text & "" & vbCrLf & vbCrLf & vbCrLf
        LString = LString & "Tipo           Habitación     Depósito       Efectivo       Total" & vbCrLf & vbCrLf
        count = 0
        For Fil = 0 To DataGridView1.Rows.Count - 1
            For Col = 0 To DataGridView1.Columns.Count - 1
                Call RellenarEsp2(DataGridView1.Item(Col, Fil).Value.ToString, Col)
                LString = LString & ncadena & Space(3)
            Next
            count += 1
            LString = LString & vbCrLf
        Next
        LString = LString & "" & vbCrLf
        LString = LString & "Depósitos: " & TextBox1.Text & "" & vbCrLf
        LString = LString & "Efectivo:  " & TextBox2.Text & "" & vbCrLf
        LString = LString & "Total:     " & TextBox4.Text & ""
        yPos = topMargin + (count * printFont.GetHeight(e.Graphics))
        e.Graphics.DrawString(LString, printFont, Brushes.Black, leftMargin, yPos, New StringFormat())
        If Not (line Is Nothing) Then
            e.HasMorePages = True
        Else
            e.HasMorePages = False
        End If
    End Sub
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If DataGridView2.Rows.Count > 0 And DataGridView1.Rows.Count > 0 Then
            Try
                printFont = New Font("Courier new", 11)
                PrintPreviewDialog1.StartPosition = FormStartPosition.CenterParent
                PrintPreviewDialog1.Width = 600
                PrintPreviewDialog1.Height = 700
                PrintPreviewDialog1.ShowDialog()
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
        End If
    End Sub
 

A lo que hago click en el botón se muestra la vista previa. Para probarlo por completo puse varios datos a ver si mostraba mas hojas pero solo me muestra una sin terminar.

Aquí una imagen para que entiendan mejor.



Espero puedan ayudarme para que la hoja se corte a la misma altura de arriba y continúe en la siguiente hoja aunque la altura en la parte de arriba de la hoja cuando se corta es mucha pero con poco datos se ve bien. Y por si acaso hay forma de poner una imagen en la esquina superior derecha y una en la esquina superior izquierda? Hay forma? Aunque si no se puede no hay problema solo sería para diseño.

Gracias por su atención.

Saludos.

[Aquaventus]

pues no te crea mas hojas porque tú declaras la siguiente variable :

Código vb:

Dim line As String = Nothing
 

después esa misma variable no la vuelves a utilizar, conservando su valor Nothing hasta llegar al siguiente código :

Código vb:

If Not (line Is Nothing) Then
            e.HasMorePages = True
        Else
            e.HasMorePages = False
        End If
 

pues obvio que le dice que no hay mas páginas y por eso siempre te queda 1, no hagas simple COPY-PASTE, analiza y averigua cual es la función que tiene cada cosa.
Con la siguiente línea obtienes la cantidad de lineas que puedes tener por página :

Código vb:

linesPerPage = e.MarginBounds.Height / printFont.GetHeight(e.Graphics)
 

luego necesitas averiguar cuantas líneas le has puesto manualmente y contando con el recorrido que haces a tu datagridview(en tu for) y compararlo si llega a la cantidad de lineas por página, si cumple puedes mandar el salto de página y guardar en una variable en la línea que se quedo para que en la proxima hoja empieze donde se quedó. Te dejo este ejemplo para que lo analizes. Saludos!.
Ejemplo :

Código vb:

'Esta variable tiene que ser publica
Dim linea As Integer = 1 
 
 
Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
'Definimos el tipo de fuente y de mas
Dim Fuente As New Font("arial", 10)
'Definimos en que posicion se va iniciar la impresion
Dim posicion As Integer = 20
'Contador de lineas que se van imprimiendo
Dim lineaimpresa As Integer = 0
'Variable para ver cuando se va hacer un salto de pagina
Dim salto_pagina As Boolean = False
'Variable para designar cuantos lineas se van a imprimir por hoja
Dim NroLineasPagina As Integer = 70 For i = linea To 150
e.Graphics.DrawString("Ejemplo de linea: " & linea, Fuente, Brushes.Black, 10, posicion)
posicion += 15
linea += 1
lineaimpresa += 1
If lineaimpresa = NroLineasPagina Then
salto_pagina = True
Exit For
End If
Next If salto_pagina = True Then
e.HasMorePages = True
Else
e.HasMorePages = False
End If
End Sub
 

[Allan2904]

Modifiqué un poco porque el código que pone carga una linea por cada repetición del for pero el mio era texto establecido y el for solo va cuando cargo las líneas de datagridview.

Entonces el código lo dejo así.

Código vb:

Dim posicion As Integer = 20
        Dim lineaimpresa As Integer = 0
        Dim leftMargin As Single = 30
        Dim topMargin As Single = e.MarginBounds.Top - 50
        Dim salto_pagina As Boolean = False
        Dim Fil, Col As Int32
        Dim LString As String = ""
        Dim NroLineasPagina As Integer = 70
        lineaimpresa += 1
        LString = LString & "Hostal Mi Fantasía" & vbCrLf & vbCrLf & vbCrLf
        lineaimpresa += 1
        LString = LString & "Contabilidad Mensual " & vbCrLf & vbCrLf & vbCrLf
        lineaimpresa += 1
        LString = LString & "Fecha de impresión: " & Today & vbCrLf & vbCrLf & vbCrLf & _
        "------------------------------------------------------------------------------------------------" & vbCrLf & vbCrLf & vbCrLf
        lineaimpresa += 1
        LString = LString & "Reservas: " & ComboBox2.Text & "" & vbCrLf & vbCrLf & vbCrLf
        lineaimpresa += 1
        LString = LString & "Tipo           Habitación     Depósito       Efectivo       Total" & vbCrLf & vbCrLf
        count = 0
        For Fil = 0 To DataGridView1.Rows.Count - 1
            For Col = 0 To DataGridView1.Columns.Count - 1
                Call RellenarEsp2(DataGridView1.Item(Col, Fil).Value.ToString, Col)
                lineaimpresa += 1
                LString = LString & ncadena & Space(3)
            Next
            count += 1
            If lineaimpresa >= NroLineasPagina Then
                salto_pagina = True
            End If
            If salto_pagina = True Then
                e.HasMorePages = True
            Else
                e.HasMorePages = False
            End If
            lineaimpresa += 1
            LString = LString & vbCrLf
        Next
        lineaimpresa += 1
        LString = LString & "" & vbCrLf
        lineaimpresa += 1
        LString = LString & "Depósitos: " & TextBox1.Text & "" & vbCrLf
        lineaimpresa += 1
        LString = LString & "Efectivo:  " & TextBox2.Text & "" & vbCrLf
        lineaimpresa += 1
        LString = LString & "Total:     " & TextBox4.Text & ""
        e.Graphics.DrawString(LString, printFont, Brushes.Black, leftMargin, posicion, New StringFormat())
 

Con esto se repite la misma hoja. Entendí que hiciste el problema es que la variable "i" que tu repites sumandole 1 en cada repetición también es la que presentas y es integer pero como te das cuenta en el mio no se repite ninguna linea por eso se me complicó.
También he de decirte que con el ejemplo que pusiste por si solo si continúa en las demás hojas pero aún asi se corta en la parte de abajo de la hoja y se saltan varios número entre las hojas.

Por cierto para no abrir otro tema como cojo el valor de la celda a la que le doy doble click? e.rowindex y e.columnindex no me funciona.

Gracias.

Saludos.

[Aquaventus]

Este bloque de código va fuera de tu for, al final de todo

Código vb:

If salto_pagina = True Then
                e.HasMorePages = True
            Else
                e.HasMorePages = False
            End If
 

Ahora necesariamente tiene que ser con doble click para obtener el valor? Saludos!.

[Allan2904]

Sigue dando el mismo error y ya me está poniendo cabezón

No es necesario el doble click solo que a veces uno da un click por error pero con un solo click está bien.

[Aquaventus]

puedes obtenerlo de estas dos formas desde su evento CellClick del datagridview, ya tu ves con cual se te hace mas cómodo :

Código vb:

Dim x As String = dgSistema.Rows(e.RowIndex).Cells(e.ColumnIndex).Value.ToString()
Dim y As String = dgSistema.CurrentRow.Cells(e.ColumnIndex).Value.ToString()
 

Saludos!.

[Allan2904]

Perfecto! Muchas gracias por tu ayuda.

Saludos.