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
Step by step
Solved in 3 steps
