IMPRIMIR VIA PRINTDOCUMENT

  Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        DataGridView1.Rows.Add([Ô]001[Ô], [Ô]LAMPADA LED 9W[Ô], [Ô]R$ 16,90[Ô])
        DataGridView1.Rows.Add([Ô]002[Ô], [Ô]CABO DE REDE[Ô], [Ô]R$ 27,80[Ô])
        DataGridView1.Rows.Add([Ô]003[Ô], [Ô]PONTA RJ45[Ô], [Ô]R$ 5,50[Ô])
        DataGridView1.Rows.Add([Ô]004[Ô], [Ô]ALICATE RJ45[Ô], [Ô]R$ 54,90[Ô])
    End Sub 

Private Sub PrintDocument1_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
       
Dim ALT As Integer = 0
        For i = 0 To Form1.DataGridView1.Rows.Count - 1
            Dim c = i
            [ô]e.Graphics.DrawString([Ô]Dados do Cliente[Ô], New Font([Ô]arial[Ô], 40, FontStyle.Regular), Brushes.Black, 160, 80)
            e.Graphics.DrawString(Form1.DataGridView1.Item(Form1.Column1.HeaderText, c).Value.ToString,
                                  New Font([Ô]arial[Ô], 15, FontStyle.Regular), Brushes.Black, 2, ALT)

            e.Graphics.DrawString(Form1.DataGridView1.Item(Form1.Column2.HeaderText, c).Value.ToString,
                                  New Font([Ô]arial[Ô], 15, FontStyle.Regular), Brushes.Black, 45, ALT)

            e.Graphics.DrawString(Form1.DataGridView1.Item(Form1.Column3.HeaderText, c).Value.ToString,
                                  New Font([Ô]arial[Ô], 15, FontStyle.Regular), Brushes.Black, 400, ALT)

            ALT += 20
        Next
    End Sub 

  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        PrintDocument1.Print()
    End Sub