[RESOLVED] How to print data from two DataGridviews

[FHoelgaard]

I'm working on a program where I have two DataGridViews in a Windows form. When I select a row in the primary DataGridView, corresponding data appears in the secondary DataGridView. Now I would like to print this data such that data on page 1 is from the primary DataGridView and from page 2 data from the secondary DataGridView that can contain several hundred rows or nothing.
But how is this done?

If I make a loop inside the PrintDocument with data from the secondary DataGridview, I only get pages of data from both DataGridViews printed on top of each other. The code to print the primary DataGridView works perfectly, but I need to get data from the secondary DataGridView on page 2.
Some tips or links to something that shows me how to do it?

Try
            Dim margin As New Printing.Margins(25, 15, 15, 15)
            PrintDoc.DefaultPageSettings.Margins = margin
 
            'Set Units
            Dim mm As Graphics = e.Graphics
            mm.PageUnit = GraphicsUnit.Millimeter
            'Fonts
            Dim HeaderFont As Font = New Font("Arial", 11, FontStyle.Regular, GraphicsUnit.Point)
            Dim infoFont As Font = New Font("Arial", 10, FontStyle.Regular, GraphicsUnit.Point)
            Dim FooterFont As Font = New Font("Arial", 8, FontStyle.Regular, GraphicsUnit.Point)
            Dim BodyFont As Font = New Font("Times New Roman", 11, FontStyle.Regular, GraphicsUnit.Point)
            'StringFormat to align Beskrivelse
            Dim stfBeskriv As New StringFormat
            stfBeskriv.Alignment = StringAlignment.Near
            stfBeskriv.LineAlignment = StringAlignment.Near
            'Create a rectangel to hold Beskrivelse
            Dim rectBeskriv As New Rectangle(25, 68, 165, 144) 'L, T, W, H
            'StringFormat to align Klausuler
            Dim stfKlausuler As New StringFormat
            stfKlausuler.Alignment = StringAlignment.Near
            stfKlausuler.LineAlignment = StringAlignment.Near
            'Create a rectangel to hold Klausuler
            Dim rectKlausuler As New Rectangle(25, 233, 165, 30)
            'Lines
            Dim blackPen As New Pen(Color.Black, 0.25) 'Thin line
            'AntiAlias
            e.Graphics.TextRenderingHint = Drawing.Text.TextRenderingHint.AntiAlias
 
            Dim i As Integer = Me.dgvAfond.CurrentRow.Index
 
            'Blanket and ARegNr contracted to A-XXXX - one line
            '2 Blanket
            Dim strBlanket, strARegNr As String
            If IsDBNull(Me.dgvAfond.Item(2, i).Value) Then
                strBlanket = "A"
            Else
                strBlanket = CStr(Me.dgvAfond.Item(2, i).Value)
            End If
            '3 ARegNr
            If IsDBNull(Me.dgvAfond.Item(3, i).Value) Then
                strARegNr = "0000"
            Else
                strARegNr = CStr(Me.dgvAfond.Item(3, i).Value)
            End If
 
            e.Graphics.DrawString("Afond nr.: " & strBlanket & "-" & strARegNr, HeaderFont, Brushes.Black, 25, 15)
 
            '18 SærNr - one line
            If IsDBNull(Me.dgvAfond.Item(18, i).Value) Then
                e.Graphics.DrawString("Særnr.: " & "", HeaderFont, Brushes.Black, 25, 20)
            Else
                e.Graphics.DrawString("Særnr.: " & CStr(Me.dgvAfond.Item(18, i).Value), HeaderFont, Brushes.Black, 25, 20)
            End If
            '6 JournalNr - one line
            If IsDBNull(Me.dgvAfond.Item(6, i).Value) Then
                e.Graphics.DrawString("Indkomstjournal: " & "", HeaderFont, Brushes.Black, 25, 25)
            Else
                e.Graphics.DrawString("Indkomstjournal: " & CStr(Me.dgvAfond.Item(6, i).Value), HeaderFont, Brushes.Black, 25, 25)
            End If
 
            'RVM Logo - upper right corner
            e.Graphics.DrawImage(My.Resources.RMA, 130, 15)
 
            'Dato and Signatur - one line
            '23 Dato
            If IsDBNull(Me.dgvAfond.Item(23, i).Value) Then
                e.Graphics.DrawString("Reg. Dato: " & "", HeaderFont, Brushes.Black, 25, 32)
            Else
                e.Graphics.DrawString("Reg. Dato: " & CStr(Me.dgvAfond.Item(23, i).Value), HeaderFont, Brushes.Black, 25, 32)
            End If
            '24 Registrant
            If IsDBNull(Me.dgvAfond.Item(24, i).Value) Then
                e.Graphics.DrawString("Registrant: " & "", HeaderFont, Brushes.Black, 70, 32)
            Else
                e.Graphics.DrawString("Registrant: " & CStr(Me.dgvAfond.Item(24, i).Value), HeaderFont, Brushes.Black, 70, 32)
            End If
 
            'Horizontal Line
            e.Graphics.DrawLine(blackPen, 25, 38, 103, 38)
 
            'Titel - two lines
            '4 Title header
            e.Graphics.DrawString("Titel: ", HeaderFont, Brushes.Black, 25, 40)
            'Title text
            If IsDBNull(Me.dgvAfond.Item(4, i).Value) Then
                e.Graphics.DrawString("", HeaderFont, Brushes.Black, 25, 45)
            Else
                e.Graphics.DrawString(CStr(Me.dgvAfond.Item(4, i).Value), HeaderFont, Brushes.Black, 25, 45)
            End If
 
            '9 Sted - one line
            If IsDBNull(Me.dgvAfond.Item(9, i).Value) Then
                e.Graphics.DrawString("Sted: " & "", infoFont, Brushes.Black, 25, 53)
            Else
                e.Graphics.DrawString("Sted: " & CStr(Me.dgvAfond.Item(9, i).Value), infoFont, Brushes.Black, 25, 53)
            End If
 
            'Horizontal Line
            e.Graphics.DrawLine(blackPen, 25, 58, 190, 58)
 
            'Beskrivelse - two or more lines
            'Beskrivelse header
            e.Graphics.DrawString("Beskrivelse: ", HeaderFont, Brushes.Black, 25, 61)
            '7 Beskrivelse text
            If IsDBNull(Me.dgvAfond.Item(7, i).Value) Then
                e.Graphics.DrawString("", BodyFont, Brushes.Black, rectBeskriv, stfBeskriv)
            Else
                e.Graphics.DrawString(CStr(Me.dgvAfond.Item(7, i).Value), BodyFont, Brushes.Black, rectBeskriv, stfBeskriv)
            End If
 
            'Horizontal Line
            e.Graphics.DrawLine(blackPen, 25, 215, 190, 215)
 
            'YderÅr, Stiftet og Nedlagt - one line
            '10 Stiftet
            If IsDBNull(Me.dgvAfond.Item(10, i).Value) Then
                e.Graphics.DrawString("Født/Stiftet: " & "", infoFont, Brushes.Black, 25, 219)
            Else
                e.Graphics.DrawString("Født/Stiftet: " & CStr(Me.dgvAfond.Item(10, i).Value), infoFont, Brushes.Black, 25, 219)
            End If
            '11 Nedlagt
            If IsDBNull(Me.dgvAfond.Item(11, i).Value) Then
                e.Graphics.DrawString("Død/Nedlagt: " & "", infoFont, Brushes.Black, 70, 219)
            Else
                e.Graphics.DrawString("Død/Nedlagt: " & CStr(Me.dgvAfond.Item(11, i).Value), infoFont, Brushes.Black, 70, 219)
            End If
            '12 YderÅr
            If IsDBNull(Me.dgvAfond.Item(12, i).Value) Then
                e.Graphics.DrawString("Yderår: " & "", infoFont, Brushes.Black, 115, 219)
            Else
                e.Graphics.DrawString("Yderår: " & CStr(Me.dgvAfond.Item(12, i).Value), infoFont, Brushes.Black, 115, 219)
            End If
 
            'Horizontal Line
            e.Graphics.DrawLine(blackPen, 25, 225, 190, 225)
 
            'Klausuler - two lines
            'Klausuler header
            e.Graphics.DrawString("Klausuler: ", infoFont, Brushes.Black, 25, 227)
            '14 Klausuler text - one or more lines
            If IsDBNull(Me.dgvAfond.Item(14, i).Value) Then
                e.Graphics.DrawString("", BodyFont, Brushes.Black, rectKlausuler, stfKlausuler)
            Else
                e.Graphics.DrawString(CStr(Me.dgvAfond.Item(14, i).Value), BodyFont, Brushes.Black, rectKlausuler, stfKlausuler)
            End If
 
            'Horizontal Line
            e.Graphics.DrawLine(blackPen, 25, 256, 190, 256)
 
            'Pakket bind, pakker, læg og hyldemeter - one line
            '15 Pakket Læg
            If IsDBNull(Me.dgvAfond.Item(15, i).Value) Then
                e.Graphics.DrawString("Pakket Pakker: " & "0", infoFont, Brushes.Black, 115, 260)
            Else
                e.Graphics.DrawString("Pakket Pakker: " & CStr(Me.dgvAfond.Item(15, i).Value), infoFont, Brushes.Black, 115, 260)
            End If
            '16 Pakket Bind
            If IsDBNull(Me.dgvAfond.Item(16, i).Value) Then
                e.Graphics.DrawString("Pakket Læg: " & "0", infoFont, Brushes.Black, 25, 260)
            Else
                e.Graphics.DrawString("Pakket Læg: " & CStr(Me.dgvAfond.Item(16, i).Value), infoFont, Brushes.Black, 25, 260)
            End If
            '17 Pakket Pakker
            If IsDBNull(Me.dgvAfond.Item(17, i).Value) Then
                e.Graphics.DrawString("Pakket Bind " & "0", infoFont, Brushes.Black, 70, 260)
            Else
                e.Graphics.DrawString("Pakket Bind: " & CStr(Me.dgvAfond.Item(17, i).Value), infoFont, Brushes.Black, 70, 260)
            End If
            '22 Hyldemeter
            If IsDBNull(Me.dgvAfond.Item(22, i).Value) Then
                e.Graphics.DrawString("Hyldemeter: " & "0", infoFont, Brushes.Black, 160, 260)
            Else
                e.Graphics.DrawString("Hyldemeter: " & CStr(Me.dgvAfond.Item(22, i).Value), infoFont, Brushes.Black, 160, 260)
            End If
 
            'Horizontal Line
            e.Graphics.DrawLine(blackPen, 25, 266, 190, 266)
 
            '13 Offentlig
            Dim strOffentlig As String
            If CStr(Me.dgvAfond.Item(13, i).Value) = "JA" Then
                strOffentlig = "Ja"
            Else
                strOffentlig = "Nej"
            End If
            e.Graphics.DrawString("Tilgængelig: " & strOffentlig, infoFont, Brushes.Black, 25, 268)
            'Horizontal Line
            e.Graphics.DrawLine(blackPen, 25, 274, 190, 274)
 
            'Udskriftsdato og udskrevet af - one line at bottom of the page
            e.Graphics.DrawString("Udskriftsdato: " & getDate().ToShortDateString, FooterFont, Brushes.Black, 25, 276)
            e.Graphics.DrawString("Udskrevet af: " & pStrSignatur.ToUpper, FooterFont, Brushes.Black, 160, 276)
 
        Catch ex As Exception
            Cursor = Cursors.Default
            'Show Exception and exit sub
            MessageBox.Show("Der opstod en undtagelse ved skabelsen af Printet af den valgte Afond." & vbCrLf &
                                                "Undtagelsen er: " & ReadException(ex), "Undtagelse Print Afond",
                                                MessageBoxButtons.OK,
                                                MessageBoxIcon.Error)
            Exit Sub
        End Try

[jmcilhinney]

You can't do anything "inside the PrintDocument". You handle the PrintPage event of the PrintDocument and put your code in that event handler. That is part of your form, not the PrintDocument.

As the name suggests, the PrintPage event handler is supposed to print a page. Each time that event is raised, you draw one page to be printed. If you want to print multiple pages, you have to have the event raised multiple times. After you print a page, whether or not the event is raised again is determined by the value of the e.HasMorePages property. In your case, the first time the event is raised, you would draw the data from the parent grid and then set e.HasMorePages to True. When the event is raised for the second time, you would draw the data from the child grid and then set e.HasMorePages to False, which is the default. You could use a field containing a Boolean, Enum value or Integer to indicate where you are in the print run so that you know what to draw each time.

[FHoelgaard]

JMC, thank you for your comment. It brought me on the right track and everything works as it should now