VB.NET 全般

    ' PageSetupDialog の新しいインスタンスを生成する (デザイナから追加している場合は必要ない)
    Dim PageSetupDialog1 As New PageSetupDialog()

    ' PageSetting の新しいインスタンスを生成する (必須)
    PageSetupDialog1.PageSettings = New System.Drawing.Printing.PageSettings()

    ' [プリンタの設定] で利用するプリンタを設定する
    PageSetupDialog1.PrinterSettings = New System.Drawing.Printing.PrinterSettings()

    ' 余白の最小値を設定する
    PageSetupDialog1.MinMargins = New System.Drawing.Printing.Margins(100, 100, 250, 200)

    ' [用紙] セクションを有効にする (初期値 True)
    'PageSetupDialog1.AllowPaper = True

    ' [印刷の向き] セクションを有効にする (初期値 True)
    'PageSetupDialog1.AllowOrientation = True

    ' [余白] セクションを有効にする (初期値 True)
    'PageSetupDialog1.AllowMargins = True

    ' [印刷] ボタンを有効にする (初期値 True)
    'PageSetupDialog1.AllowPrinter = True

    ' [ヘルプ] ボタンを表示する (初期値 False)
    PageSetupDialog1.ShowHelp = True

    ' [ネットワーク] ボタンを表示する (初期値 True)
    'PageSetupDialog1.ShowNetwork = True

    ' ダイアログを表示し、戻り値が [OK] の場合は、何らかの処理を実行する
    If PageSetupDialog1.ShowDialog() = DialogResult.OK Then
        MessageBox.Show("ここに、ページ設定終了後の処理を実装してください")
    End If

    ' 不要になった時点で破棄する (正しくは オブジェクトの破棄を保証する を参照)
    PageSetupDialog1.Dispose()