بخصوص الطباعة في DataGridView

Imports System.Drawing.Printing

Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage

Dim y As Integer = 0

For Each row As DataGridViewRow In DataGridView1.Rows

e.Graphics.DrawString(vbNewLine & "Name: " & row.Cells(0).Value & vbNewLine & "Telephone: " & row.Cells(1).Value & vbNewLine & "BirthDate: " & row.Cells(2).Value & vbNewLine, New Font("arial", 16), Brushes.Black, 0, y)

y += 100

Next

e.HasMorePages = True

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

PrintDocument1.Print()

End Sub