マクロ実行時 ウィンドウで実行するか確認する

質問

VBA初心者です。

印刷ボタンをつくり、自動で印刷を行いたいのですが、
ワンクリックで出来てしまうと、誤って押したときに無駄紙が
印刷されてしまいます。

そこで、印刷するか否かのウィンドウが立ち上がるなどの措置を
取りたいのですが、どのように行えばよいのでしょうか。
参考URLなどがあればお教えいただきたいと思います。

どうかよろしくお願い致します。

ちなみに自動記録ですが、印刷の命令のマクロは以下の通りです。

Sub 棚卸台帳印刷()
Application.Goto Reference:="印刷範囲"
Selection.PrintOut Copies:=1, Collate:=True
End Sub

回答No.2

zap35 · ベストアンサー

明示的に確認用メッセージボックスを表示するなら、このようになるでしょう。

Sub 棚卸台帳印刷()
DIM res as Long
　res = Msgbox("印刷しますか？" , vbYesNo + vbQuestion)
　If res = vbYes Then
　　Application.Goto Reference:="印刷範囲"
　　Selection.PrintOut Copies:=1, Collate:=True
　End If
End Sub

お礼

ありがとうございます。
おかげでできました。
またよろしくお願い致します。

回答No.1

merlionXX

Sub 棚卸台帳印刷()
Application.Goto Reference:="印刷範囲"
Selection.PrintPreview
End Sub
ではいかが？

補足

確かに良い方法です。
しかし、シートを保護しているのを忘れていたので
一度シートの保護解除の命令をするので、ちょっとこれではきびしいです。
ご回答ありがとうございました。