Private Sub btDruck_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs)
        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.Pixel
        Dim myPaintArgs As New PaintEventArgs(e.Graphics, New Rectangle(New _
          Point(0, 0), ...))
        Me.InvokePaint(..., myPaintArgs)
    End Sub