|
いろいろ探してみたのですが、自分ではうまく探すことができず、ここで質問させてください。
マクロで新規作成したブックで、ある条件のとき印刷不可にしたいと思っています。
WorkBookのBeforePrintイベントに以下のようにマクロが組んであるブックに対しては
印刷不可にできるのはわかりました。
Private Sub WorkBook_BeforePrint(cancel As Boolean)
Dim Sheet_Name As String
Dim w_str As String
Sheet_Name = ActiveSheet.Name
If Sheet_Name = "伝票" Then
If Range("B5") = "" Then '/*---セル"B5":日付
cancel = True
w_str = "日付が未入力なので印刷できません。"
MsgBox w_str, vbExclamation, "印刷"
End If
End If
End Sub
マクロで新規作成したブックのBeforePrintイベントに上記のコードを埋め込む方法は
ないものでしょうか?
ブックの新規作成をするマクロが含まれるプロジェクトのWorkBook_BeforePrintイベントに
上記のコードを書いておいてコピーする方法とかあるのでしょうか?
|
|