VBAで印刷とプレビュー表示をするボタンを作成したい。

Question

VBAの質問です。
印刷と印刷プレビュー表示を実行するボタンを作成したいと思っております。
イメージとしては、以下です。

①：ボタンをクリックする。
②：メッセージが表示される。（Yes・No・キャンセル）
③：Yes＝デフォルト設定でそのまま印刷が実行される。
No＝印刷のプレビューを表示させる。
キャンセル＝処理を終了させる。

コードは以下の通りです。

Option Explicit

Sub prog1_Click()
Dim rc As Long
rc = MsgBox("こんにちは", vbYesNoCancel, "印刷確認")
If rc = vbYes Then
Worksheets("Sheet1").PrintOut
ElseIf rc = vbNo Then
Worksheets("Sheet1").PrintPreview
Else: Exit Sub

End If

End Sub

しかし、実際はYes・Noを選択しても何も実行されませんでした。
何か至らない点がありましたらご支援を賜ります。
どうそよろしくお願いいたします。

Answer 1

（ボタン以外に）何もないので印刷されない、ということではないでしょうか。

Comments

[asuka.Mir]

先程、文字を入れてみたらいずれも実行できました。
ご対応ありがとうございました。