ExcelVBAを使った印刷のことで教えてください

質問

初めまして。
Excelで作成した報告書の印刷時にVBAを使い、B1セルに自動的に「提出済み」とスタンプ表示させています。ここまでのVBA組み立てはできたのですが、実際に使ってみると印刷中止にしても「提出済み」は表示されてしまいます。（印刷はされませんが）
そこで皆さんにお聞きしたいのは、印刷を中止にした場合にこのスタンプをしないようにするVBAの書き方をお教えいただきたいのです。実際に現在組んでいるVBAは以下の通りです。

★ThisWorkbookモジュールには下記を入力してます。

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Application.OnTime Now, "記録定着と提出記録押印"
End Sub

★標準モジュールに下記を入力してます。

Sub 記録定着と提出記録押印()
'
' 記録定着値貼り付け2 Macro
'

'
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False

ActiveSheet.PrintOut preview:=True

Range("b1") = "提出済み"

ActiveSheet.Buttons.Delete

Range("N24").Select

End Sub

印刷前に値貼り付けをしているのは元の報告書は日付やほかのブックからデータを参照している関数が入っておりますので印刷時の状態を残すために値貼り付けを実施しています。

VBAは独学で学び中で未熟な者ですがご教示をよろしくお願いいたします。

回答No.1

asciiz · ベストアンサー

ActiveSheet.PrintOut には、実際に印刷したかどうかの戻り値があります。
ただし戻り値を得るには、関数形式で呼び出さなければなりません。

＞Sheets.PrintOut メソッド (Excel) | Microsoft Docs
＞https://docs.microsoft.com/ja-jp/office/vba/api/excel.sheets.printout

PrintOutの呼び出し後、戻り値を見れば、True ならば印刷した、False ならばキャンセルした、ということがわかります。

ということで、

Dim printed As Variant
printed = ActiveSheet.PrintOut(Preview:=True)

みたいに呼び出し、その後

If printed Then
Range("b1") = "提出済み"
End If

のようにすれば良いでしょう。

まあ戻り値を変数に入れずとも、

If ActiveSheet.PrintOut(Preview:=True) Then
Range("b1") = "提出済み"
End If

と一気に書いても構いませんが。
処理の流れ上、都合の良い方でどうぞ。

お礼

早くにご教示いただきありがとうございました。
頂いたサンプルをもとに
If ActiveSheet.PrintOut(Preview:=True) Then
Range("b1") = "提出済み"
　ActiveSheet.Buttons.Delete
End If
と書き換えてみたら、印刷されない場合は”提出済み”がスタンプされず、またマクロボタンも消されず目的とする仕組みが出来上がりました。これで今後は使えそうです。
本当にありがとうございました。

回答No.2

imogasi

https://oshiete.goo.ne.jp/qa/3018672.html
印刷をキャンセル
に書いてあることが、役立つのでは？
そのベストアンサーなどが役に立つのでは。
BeforePrintイベントは印刷に入る前に（１）必要な前処理や（２）該当データがあるのかなどのチェックをユーザーにさせる仕組みで、実行に入った処理の中止や中断をさせる仕組みでhないと思う。
誤解では？だからベストアンサーのようなコードを入れて対処するしかないでしょう。
途中で中断したときの、無駄な印刷はさておき、その他の影響消去は、自己責任で回復処理など作っておかないとならないと、思ったが。

お礼

ご教示ありがとうございました。教えていただいたサイトを見させていただきました。もう少し突き詰めてみます。