ow do i print my 3 datagridview in 1 printing show without using data base in vbnet   'Print Menu Strip     Private bitmap, bitmap2, bitmap3 As Bitmap     'Print Function     Private Sub PrintFunction1()         'Patients Information DataGridView         Dim height As Integer = DataGridViewPatientsInfo.Height         DataGridViewPatientsInfo.Height = DataGridViewPatientsInfo.RowCount * DataGridViewPatientsInfo.RowTemplate.Height         bitmap = New Bitmap(Me.DataGridViewPatientsInfo.Width, Me.DataGridViewPatientsInfo.Height)         DataGridViewPatientsInfo.DrawToBitmap(bitmap, New Rectangle(0, 0, Me.DataGridViewPatientsInfo.Width,                                                                     Me.DataGridViewPatientsInfo.Height))         PrintPreviewDialog1.Document = PrintDocument1         PrintPreviewDialog1.PrintPreviewControl.Zoom = 1         PrintPreviewDialog1.ShowDialog()         DataGridViewPatientsInfo.Height = height     End Sub     Private Sub PrintFunction2()         'Pregnancy Details DataGridView         Dim height2 As Integer = DataGridViewPregancyDetails.Height         DataGridViewPregancyDetails.Height = DataGridViewPregancyDetails.RowCount * DataGridViewPregancyDetails.RowTemplate.Height         bitmap2 = New Bitmap(Me.DataGridViewPregancyDetails.Width, Me.DataGridViewPregancyDetails.Height)         DataGridViewPregancyDetails.DrawToBitmap(bitmap2, New Rectangle(0, 0, Me.DataGridViewPregancyDetails.Width,                                                                     Me.DataGridViewPregancyDetails.Height))         PrintPreviewDialog1.Document = PrintDocument1         PrintPreviewDialog1.PrintPreviewControl.Zoom = 1         PrintPreviewDialog1.ShowDialog()         DataGridViewPregancyDetails.Height = height2     End Sub     Private Sub PrintFunction3()         'Medical Information DataGridView         Dim height3 As Integer = DataGridViewMedicalInfo.Height         DataGridViewMedicalInfo.Height = DataGridViewMedicalInfo.RowCount * DataGridViewMedicalInfo.RowTemplate.Height         bitmap3 = New Bitmap(Me.DataGridViewMedicalInfo.Width, Me.DataGridViewMedicalInfo.Height)         DataGridViewMedicalInfo.DrawToBitmap(bitmap3, New Rectangle(0, 0, Me.DataGridViewMedicalInfo.Width,                                                                     Me.DataGridViewMedicalInfo.Height))         PrintPreviewDialog1.Document = PrintDocument1

How do i print my 3 datagridview in 1 printing show without using data base in vbnet

'Print Menu Strip
    Private bitmap, bitmap2, bitmap3 As Bitmap

    'Print Function
    Private Sub PrintFunction1()
        'Patients Information DataGridView
        Dim height As Integer = DataGridViewPatientsInfo.Height
        DataGridViewPatientsInfo.Height = DataGridViewPatientsInfo.RowCount * DataGridViewPatientsInfo.RowTemplate.Height
        bitmap = New Bitmap(Me.DataGridViewPatientsInfo.Width, Me.DataGridViewPatientsInfo.Height)
        DataGridViewPatientsInfo.DrawToBitmap(bitmap, New Rectangle(0, 0, Me.DataGridViewPatientsInfo.Width,
                                                                    Me.DataGridViewPatientsInfo.Height))
        PrintPreviewDialog1.Document = PrintDocument1
        PrintPreviewDialog1.PrintPreviewControl.Zoom = 1
        PrintPreviewDialog1.ShowDialog()
        DataGridViewPatientsInfo.Height = height
    End Sub

    Private Sub PrintFunction2()
        'Pregnancy Details DataGridView
        Dim height2 As Integer = DataGridViewPregancyDetails.Height
        DataGridViewPregancyDetails.Height = DataGridViewPregancyDetails.RowCount * DataGridViewPregancyDetails.RowTemplate.Height
        bitmap2 = New Bitmap(Me.DataGridViewPregancyDetails.Width, Me.DataGridViewPregancyDetails.Height)
        DataGridViewPregancyDetails.DrawToBitmap(bitmap2, New Rectangle(0, 0, Me.DataGridViewPregancyDetails.Width,
                                                                    Me.DataGridViewPregancyDetails.Height))
        PrintPreviewDialog1.Document = PrintDocument1
        PrintPreviewDialog1.PrintPreviewControl.Zoom = 1
        PrintPreviewDialog1.ShowDialog()
        DataGridViewPregancyDetails.Height = height2
    End Sub

    Private Sub PrintFunction3()
        'Medical Information DataGridView
        Dim height3 As Integer = DataGridViewMedicalInfo.Height
        DataGridViewMedicalInfo.Height = DataGridViewMedicalInfo.RowCount * DataGridViewMedicalInfo.RowTemplate.Height
        bitmap3 = New Bitmap(Me.DataGridViewMedicalInfo.Width, Me.DataGridViewMedicalInfo.Height)
        DataGridViewMedicalInfo.DrawToBitmap(bitmap3, New Rectangle(0, 0, Me.DataGridViewMedicalInfo.Width,
                                                                    Me.DataGridViewMedicalInfo.Height))
        PrintPreviewDialog1.Document = PrintDocument1
        PrintPreviewDialog1.PrintPreviewControl.Zoom = 1
        PrintPreviewDialog1.ShowDialog()
        DataGridViewMedicalInfo.Height = height3
    End Sub

    'Print In Menu Strip
    Private Sub PrintListReportToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PrintListReportToolStripMenuItem.Click
        PrintFunction1()
        PrintFunction2()
        PrintFunction3()
    End Sub

    'Document Printed
    Private Sub PrintDocument1_PrintPage(sender As Object, e As PrintPageEventArgs) Handles PrintDocument1.PrintPage
        e.Graphics.DrawImage(bitmap, 0, 0)
    End Sub