Excelの組み込み印刷設定ダイアログを開く
Application.DialogsとxlDialogPrinterSetupでプリンター設定画面を表示します。
実行前に確認
- OKで確定するとプリンター関連の設定が変わる場合があります。試すだけならキャンセルしてください。
- 公開前にコードと公式仕様を照合していますが、Excel実機での動作は未確認です。コピーしたブックで試してください。
1サンプルコード
Option Explicit
Sub PracticeAdvanced8026()
Dim accepted As Boolean
accepted = Application.Dialogs(xlDialogPrinterSetup).Show
If accepted Then
MsgBox "印刷設定を確定しました"
Else
MsgBox "キャンセルしました"
End If
End Sub図で見る操作の流れ
イメージ図この例の準備と結果を示す模式図です。
準備
練習用ブックの標準モジュールにコードを配置
操作
Application.DialogsとxlDialogPrinterSetupでプリンター設定画面を表示します。
結果
設定を確定したかキャンセルしたかを確認できます。このコード自体は印刷しません。
OKで確定するとプリンター関連の設定が変わる場合があります。試すだけならキャンセルしてください。
コードの処理を説明する模式図です。実際の画面や実行結果を撮影したものではありません。
使い方・実行手順を確認する4つの手順で、コードの使い方を確認できます
- 1
練習用のマクロ有効ブックを開き、Alt＋F11→［挿入］→［標準モジュール］へコードを貼り付けます。
- 2
PracticeAdvanced8026を実行します。
- 3
Application.DialogsとxlDialogPrinterSetupでプリンター設定画面を表示します。
- 4
設定を確定したかキャンセルしたかを確認できます。このコード自体は印刷しません。