'PageSetup aufrufen
    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
                ' ...
                ' ...
                ' ...
            End If
        End With
        pagesetupDlg = Nothing
    End Sub