Вывести на печать содержимое DataGridView

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Dim ww, hh As Integer
    With DataGridView1
        For i = 0 To nCols - 1
            ww += .Columns(i).Width
        Next
        ww += .RowHeadersWidth + 2
        For i = 0 To nRows - 1
            hh += .Rows(i).Height
        Next
        hh += .ColumnHeadersHeight + 2
        .ClearSelection()
    End With
    Dim rc As New Rectangle(New Point(0, 0), New Size(ww, hh))
    Bitmap = New Bitmap(rc.Width, rc.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
    DataGridView1.DrawToBitmap(Bitmap, rc) 'на картинке будет отображаться только то, что видно на экране
    PrintPreviewDialog1.Document = PrintDocument1
    PrintPreviewDialog1.PrintPreviewControl.Zoom = 1
    PrintPreviewDialog1.ShowDialog()
End Sub
Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
    Dim x As Integer = 50, y As Integer = 20
    e.Graphics.DrawImage(Bitmap, x, y)
    'Картинка, судя по всему, будет умещаться на один лист. (e.HasMorePages = False)
End Sub

Public Class Form4
    Private bitmap As Bitmap
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ww, hh As Integer
        Dim nCols, nRows As Integer 'их же нужно как-то определить!
        nCols = DataGridView1.ColumnCount '!!!
        nRows = DataGridView1.RowCount '!!!
        With DataGridView1
            For i = 0 To nCols - 1
                ww += .Columns(i).Width
            Next
            ww += .RowHeadersWidth + 2
            For i = 0 To nRows - 1
                hh += .Rows(i).Height
            Next
            hh += .ColumnHeadersHeight + 2
            .ClearSelection()
        End With
        Dim rc As New Rectangle(New Point(0, 0), New Size(ww, hh))
        bitmap = New Bitmap(rc.Width, rc.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
        DataGridView1.DrawToBitmap(bitmap, rc) 'на картинке будет отображаться только то, что видно на экране
        PrintPreviewDialog1.Document = PrintDocument1
        PrintPreviewDialog1.PrintPreviewControl.Zoom = 1
        PrintPreviewDialog1.ShowDialog()
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        setDGV(5, 10)
    End Sub
 
    Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    End Sub
 
    Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        Dim x As Integer = 50, y As Integer = 20
        e.Graphics.DrawImage(bitmap, x, y)
    End Sub
 
    Private Sub setDGV(ByVal nc As Integer, ByVal nr As Integer)
        If nc < 3 Then Exit Sub
        With DataGridView1
            .AllowUserToAddRows = False
            .ColumnCount = nc
            .RowCount = nr
            Dim cnt() As String = {"Франция", "Россия", "Германия", "Финляндия", "Китай"}
            Dim rnd As New Random
            For j = 0 To nc - 1
                .Columns(j).HeaderText = "Column " & (j + 1).ToString
            Next
            For i = 0 To nr - 1
                .Rows(i).Cells(0).Value = i + 1
                .Rows(i).Cells(1).Value = rnd.Next(10000, 100000)
                .Rows(i).Cells(2).Value = cnt(rnd.Next(0, cnt.Length))
                If nc > 3 Then
                    For j = 3 To nc - 1
                        .Rows(i).Cells(j).Value = cnt(rnd.Next(0, cnt.Length)) & rnd.Next(1, 100).ToString
                    Next
                End If
            Next
            .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
        End With
    End Sub
End Class