スキルアップ・問題解決なら、モーグにおまかせ！

● 概要 ●

  構文  expression.RunCommand(Command)


  設定項目        内容
  expression      ApplicationオブジェクトまたはDoCmdオブジェクト［省略不可］
  Command         Accessのメニューコマンドまたはツールバーコマンドと対応す
                  るAcCommandクラスの定数を指定［省略不可］


引数に、acCmdPrintを指定すると、レポートを印刷する前に、印刷ダイアログボックスを表示します。
これは、Accessのメニューから［ファイル］→［印刷］コマンドを実行したこととなります。印刷前に、用紙のサイズや、カラー/白黒の指定をしなおしたいとき、また、「通常使うプリンタ」以外のプリンタに出力したいときなどに便利です。


● サンプル ●
Sub PrintDialogueSample()
    'エラーの場合、myErr:　へ
    On Error GoTo myErr
    'レポート［名簿］を選択する
    DoCmd.SelectObject acReport, "名簿", True 
    '印刷ダイアログボックスを開く
    DoCmd.RunCommand acCmdPrint
    'プロシージャを終了
    Exit Sub
myErr:
    'エラーメッセージを出す
    MsgBox Err.Description
End Sub


● 補足 ●
 ページ設定ダイアログボックスを表示するときは、RunCommandメソッドの引数に、acCmdPageSetupを指定します。