即効テクニック |
● 概要 ● 構文 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を指定します。