【ExcelVBA】BeforePrintイベントはあるけどAfterPrintイベントはない【知恵袋】

[記事公開]2022.10.23
VBA
ExcelVBA, 知恵袋

Yahoo!知恵袋の質問から。

1. 質問
2. 回答
3. 解説

質問

印刷時に以下の方法でアクティブセルの行を色付きにした色を印刷されないようにする方法はありますか？
元々選択したセルがある行を見やすくするために設定したのですが、
印刷すると行を見やすくした色まで印刷されてしまいます。
これを印刷されないようにする方法はありますか？
印刷範囲外のセルを選んでから印刷するというのは除外します。
「現在の設定」
次の条件付き書式で定めています。
=CELL(“ROW”)=ROW()
さらに次のマクロのコードを動かしています
Application.ScreenUpdating = true
https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q13269570988

追加で説明があり、「他の部分に色付けていて、それは色付きのまま印刷したいのでした」とも。

回答

ではBeforePrintイベントで条件付書式設定をクリアして、
OnTimeで印刷後に条件付き書式をもとに戻す設定をしたらどうですか？
↓ThisWorkbookモジュールに記述します。
Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ThisWorkbook.Worksheets(1).Cells.FormatConditions.Delete
Application.ScreenUpdating = True
Application.OnTime Now(), “ThisWorkbook.AfterInsatsu”
End Sub
https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q13269570988

回答欄は文字数制限があるので、2回に分けて回答しています。

Private Sub AfterInsatsu()
Dim Rng As Range
Dim Frm As Object
With ThisWorkbook.Worksheets(1)
Set Rng = .Range(“A2:I10”)
Set Frm = Rng.FormatConditions.Add(Type:=xlExpression, Formula1:=”=CELL(“”ROW””)=ROW()”)
Frm.Interior.Color = RGB(198, 224, 180)
End With
Application.ScreenUpdating = True
End Sub
https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q13269570988

見やすいように、コードエディタでも同じものを掲示しておきます。

Option Explicit

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    ThisWorkbook.Worksheets(1).Cells.FormatConditions.Delete
    Application.ScreenUpdating = True
    Application.OnTime Now(), "ThisWorkbook.AfterInsatsu"
End Sub

Private Sub AfterInsatsu()
    Dim Rng As Range
    Dim Frm As Object

    With ThisWorkbook.Worksheets(1)
        Set Rng = .Range("A2:I10")
        Set Frm = Rng.FormatConditions.Add(Type:=xlExpression, Formula1:="=CELL(""ROW"")=ROW()")
        Frm.Interior.Color = RGB(198, 224, 180)
    End With
    Application.ScreenUpdating = True
End Sub