ツールバーの中にあるプリンタの絵のボタンをクリックすると印刷できますが、必要がないのに間違ってクリックしてしまった事はありませんか？　例えばその右隣の印刷プレビューをクリックしたかった場合などです。ファイルメニューの印刷はダイアログが出るのでキャンセルできますが、ツールバーからクリックした時はそれが出来ません。これを防ぐために一旦確認のメッセージを出してみましょう。

ワークブックモジュール内に以下のプロシージャを記述します。

Private Sub Workbook_BeforePrint(Cancel As Boolean)
  If MsgBox("印刷またはプレビューしますか？", vbOKCancel) = vbCancel Then Cancel = True
End Sub

ただ少し気になるのは、このイベントプロシージャは印刷前だけではなく、印刷プレビューの前にも実行されるという点です。後者にも確認のメッセージが出ます。