印刷時の確認メッセージについて

質問

印刷ボタンを作成し、印刷時にプレビュー表示をするかを確認するメッセージを表示させたいと思っています。
ボタン押下時に表示されるメッセージの順番を以下のようにしたいです。

印刷ボタンを押したら、メッセージ「印刷しますか？」を表示し、vbYesNoCancel」を表示する
　Yesの場合 →メッセージ「プレビューを表示しますか？」を表示し、vbYesNoCancel」を表示する
　　　Yesの場合→印刷プレビューを表示する
　　　Noの場合 →メッセージ「印刷します」を表示し、印刷を開始する
　　　キャンセルの場合→なにもしないで終了
　Noの場合 →メッセージ「印刷を中止します」を表示し終了
　キャンセルの場合→なにもしないで終了

上記のように表示させるVBAがあれば教えてください。

回答No.1

mshr1962 · ベストアンサー

やり方はいくつもあるので一例ですが。。。

Sub 印刷_Click()
Dim Ra, Rb As Single
Ra = MsgBox("印刷しますか？", vbYesNoCancel, "印刷確認")

Select Case Ra
Case vbYes
Rb = MsgBox("印刷プレビューを表示しますか？", vbYesNoCancel, "印刷確認")
Case vbNo
Rb = MsgBox("印刷を中止します。", vbOKOnly, "印刷確認")
GoTo 印刷_End
Case Else
GoTo 印刷_End
End Select

Select Case Rb
Case vbYes
ActiveWindow.SelectedSheets.PrintPreview
Case vbNo
Rb = MsgBox("印刷します。", vbOKOnly, "印刷確認")
ActiveWindow.SelectedSheets.PrintOut
Case Else
GoTo 印刷_End
End Select

印刷_End:
End Sub

お礼

ご回答ありがとうございます。
おかげ様で希望通りの結果を得られました！