[[20060719152744]]　『特定のセルが空白の場合､印刷させない』（ののこ）　ページの最後に飛ぶ

『特定のセルが空白の場合､印刷させない』（ののこ）

こんにちは。マクロ初心者の為、苦戦しています。

Ａ１が空白の場合、印刷ボタンを押しても印刷させないようにするには、
どのような記載になるのでしょうか。

 プレビューも出なくなっちゃうけど。
 Private Sub Workbook_BeforePrint(Cancel As Boolean)
  If Range("A1").Value = "" Then
   Cancel = True
  End If
 End Sub
 BJ

 "印刷ボタン"をコマンドボタンなどで作ったマクロ実行用の
 ボタンと勘違いして書いてしまいましたがそのままアップし
 ます。

 コマンドボタンなら
 Eanbled = False
 とすれば登録したマクロを実行させないように出来るのですが、
 フォームのボタンではできないので、
 Visible = False
 でボタンを非表示にできます。
 条件がそれえば
 Visible = True
 としてボタンを表示します。

 あるいは、
 Range("A1").Value = "" Then Exit Sub
 とすれば、A1に何も入力されてなければ
 マクロを終了します。
 (MARBIN)

お返事ありがとうございます！早速試してみました。

なにか、私のほうで間違えているんだと思うのですが、ＢＪさんに教えていただいたものをそのままコピーし、標準モジュール(Module１)に貼り付け、Ａ１を空白にして印刷ボタンを押したら・・・印刷されてしまいました(T＿T)

貼り付け箇所が違ったのでしょうか。それとも、他になにか操作が必要だったでしょうか。また教えていただけるとありがたいです。

(ののこ)

 >標準モジュール(Module１)
 ThisWorkbookモジュールに記述しましょう。
 (MARBIN)

おおおー！　できましたー！！
MARBINさん、ありがとうございます！(ののこ)

コメント返信：

[ 一覧(最新更新順) ]

[[20060719152744]] 『特定のセルが空白の場合､印刷させない』（ののこ） ページの最後に飛ぶ

[[20060719152744]]　『特定のセルが空白の場合､印刷させない』（ののこ）　ページの最後に飛ぶ