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

VBA初心者です。

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

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

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

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

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

No.2 ベストアンサー 回答者： zap35 回答日時： 2006/07/07 16:30

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

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

この回答へのお礼

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

お礼日時：2006/07/07 17:02

No.1 回答者： merlionXX 回答日時： 2006/07/07 16:16

Sub 棚卸台帳印刷()

Application.Goto Reference:="印刷範囲"
Selection.PrintPreview
End Sub
ではいかが？

この回答への補足

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

補足日時：2006/07/07 16:56