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

印刷ダイアログボックスを表示させるには、Dialogsプロパティに引数：xlDialogPrint を指定しShowメソッドを実行します。

実行画面

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

表示した印刷ダイアログボックスです
印刷ダイアログボックスの画面

実行VBAコード

'印刷ボタン
Private Sub CommandButton1_Click()

    '印刷ボタンを隠す
    CommandButton1.Visible = False
    '印刷ダイアログボックスを表示する
    Application.Dialogs(xlDialogPrint).Show
    '印刷ボタンを戻す
    CommandButton1.Visible = True

End Sub

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