Access VBA：印刷プレビューの前に印刷設定ダイアログ（ページ設定）を開く

Access VBAで印刷前に印刷設定ダイアログを開くことで、プリンタの変更や余白等の設定ができます。

複数のプリンタを使用されている方には便利かと思います。
実行順
1）印刷プレビュー画面を表示させます。
2）DoEventsを実行しないとレポート内容が表示されません。
3）開いているレポートを選択します。
4）ページ設定ダイアログを表示します。
開く前にエラー処理を行ってください。
これがないとキャンセルされた場合、エラーになります。

ダイアログを表示させるAccessフォーム


印刷設定ダイアログ

■ Access VBA 実行コード例

Option Compare Database
Option Explicit

Private Sub コマンド0_Click()

    DoCmd.OpenReport "レポート2", acPreview
    DoEvents
    '既に開いているオブジェクトを選択するのでFalse
    DoCmd.SelectObject acReport, "レポート2", False
            On Error Resume Next
            '印刷設定ダイアログを表示
    DoCmd.RunCommand acCmdPrint

End Sub