HOME > 即効テクニック > AccessVBA > ユーザーインターフェース > 印刷ダイアログボックスを表示する

即効テクニック

ユーザーインターフェース

印刷ダイアログボックスを表示する

(Access 2000/2002)
● 概要 ●

  構文  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を指定します。