引数を設定し印刷ダイアログボックスを表示する : Excel

印刷ダイアログボックスに引数を設定し表示させると、ダイアログボックスの初期値を変更することができます。

Homeに戻る > Excel 印刷のTipsへ

[引数の設定内容]

arg1 ：印刷範囲
arg2 ：開始ページ
arg3 ：終了ページ
arg4 ：印刷部数
arg5 ：簡易印刷
arg6 ：印刷プレビュー
arg7 ：メモ印刷
arg8 ：カラー印刷
arg9 ：紙送り
arg10 ：印刷品質
arg11 ：縦方向の解像度
arg12 ：印刷対象
arg13 ：プリンタ名
arg14 ：ファイルへ出力
arg15 ：部単位で印刷

実行画面

生産実績のシートを使用します。
「印刷」ボタンをクリックすると、引数をセットし印刷ダイアログを表示させます。
生産実績シートを印刷する

プリンタ名、印刷部数を引数により変更しています。
印刷ダイアログの設定

実行VBAコード

'印刷ボタン
Private Sub CommandButton1_Click()

    '印刷ボタンを隠す
    CommandButton1.Visible = False
    '引数を設定し印刷ダイアログボックスを表示する
    Application.Dialogs(xlDialogPrint).Show Arg4:=2, Arg13:="Canon Inkjet iP4500 series"
    '印刷ボタンを戻す
    CommandButton1.Visible = True

End Sub

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します