Private Sub PD1_PrintPage(ByVal sender As System.Object, _
       ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles _
       PD1.PrintPage
        'DataGrid drucken
        Dim myPaintArgs As New PaintEventArgs(e.Graphics, New Rectangle(New _
           Point(0, 0), Me.Size))
        Me.InvokePaint(DataGrid1, myPaintArgs)
    End Sub

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

VB@rchiv its the Best