Private Sub btDruck_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles btDruck.Click
        Dim psd As New PageSetupDialog
        With psd
            .AllowMargins = True
            .AllowOrientation = True
            .AllowPaper = True
            .AllowPrinter = True
            .ShowHelp = True
            .ShowNetwork = True
            .Document = PrintDocument1
        End With
        psd.ShowDialog()
        If psd.ShowDialog() = DialogResult.OK Then
            PrintDocument1.Print()
        End If
    End Sub
 
    Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As _
      Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        'e.Graphics.PageUnit = GraphicsUnit.Millimeters
        Dim myPaintArgs As New PaintEventArgs(e.Graphics, New Rectangle(New _
          Point(0, 0), Me.Size))
        Me.InvokePaint(dgv, myPaintArgs)
    End Sub