印刷する処理を作ろう

「ああ、それかい？
追加アイテムのチェックをした後に、チェックの結果を印刷したいニーズがあるかな…って思ったんだ。
ただ…どんなコードを書いていいかわからなくて、とりあえずコメントにしておいたんだよ」 「そーゆーことか。じゃあ早速、その部分を作ってしまおう。
なに、1分もあればそんなのできちゃうよ」 コードを書きはじめた八木くんに、

「実はその部分、例の岬さんに作ってもらうよう頼んであるんだ…」 星くんは、岬さんに依頼した内容をそのまま伝えました。

「…ふーん。岬って、例のアシストの子かい？
プロシージャを別に作るよう、依頼したのは正解だったよ。
それなら後で、簡単に追加することができるからね。
…でもそれとは別に、おまえ自身が正しい印刷の処理について理解してなくてはダメだ。
でないと、その子が作ってきたコードが正しいかどうか、判断できないだろう？」 星くんはなるほど、という顔をしてうなずきました。

「おまえのいうとおりだ、八木。
…この場合、どんな処理を書けばいいんだい？」 八木くんはカタカタとキーボードをたたきます。
本当にほんの1分ほどで、新しいプロシージャを作成してしまいました。

Sub SyoriInsatu()
    '印刷の確認
    If MsgBox("処理の結果を印刷しますか？", vbYesNo) = vbYes Then
        '［はい］クリックなら印刷プレビューを表示
        ActiveSheet.PrintPreview
    End If
End Sub

「…こんな感じかな？
このプロシージャ"SyoriInsatu"を、コメントの場所からCallステートメントで呼び出せばいい…。
Ifステートメントの条件式にあるMsgBoxには2つの引数を渡している。
1つ目の引数は表示させるメッセージ、2つ目の引数"vbYesNo"は［はい］と［いいえ］の2つのボタンを表示させる指定になるんだ。
実際に実行してみよう」