Private Sub btnSeiteEinrichten_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnSeiteEinrichten.Click
        Dim PageSetupDlg As New PageSetupDialog
 
        With PageSetupDlg
            .PrinterSettings = PrintDocument1.PrinterSettings
            .PageSettings = PrintDocument1.DefaultPageSettings
            If .ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
                PrintDocument1.PrinterSettings = .PrinterSettings
                PrintDocument1.DefaultPageSettings = .PageSettings
                'Debug.Print(PrintDocument1.PrinterSettings.IsDefaultPrinter)
            End If
        End With
        'PageSetupDlg = Nothing
    End Sub
 
    'PrintDialog aufrufen
    Private Sub btnDrucken_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnDrucken.Click
        With PrintDialog1
            .Document = PrintDocument1
            .AllowSomePages = True
            If .ShowDialog() = Windows.Forms.DialogResult.OK Then
                PrintDocument1.Print()
            End If
        End With
    End Sub
 
    Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, _
    ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles _
    PrintDocument1.PrintPage
        e.Graphics.DrawString(txtDaten.Text, txtDaten.Font, Brushes.Black, 0, 0)
    End Sub