|
その入力不要の色づけされたセルについて、既に条件付書式の設定が行われていなければ、
条件付書式でコントロールするというのはどうでしょうか?
一般の書式設定における背景色セットよりも条件付き書式の設定の方が優先することを利用するものです。
具体的には、印刷時に色を消したいセルについて、条件付書式設定で背景色を"色なし"に設定する。
その条件として、適当な未使用のセル(例:Z1)を数式条件で「=&Z$1=1」とする。
後は、Workbook_BeforePrintの中で、そのセルのOnOffを行う。
(ブックモジュールに)
Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim sht As Object
For Each sht In ActiveWindow.SelectedSheets
If sht Is Sheet1 Then
Sheet1.Range("Z1").Value = 1
'印刷後に元に戻す為
Application.OnTime Now, Me.CodeName & ".AfterPrint"
Exit For
End If
Next
End Sub
Private Sub AfterPrint()
Sheet1.Range("Z1").ClearContents
End Sub
(注意)
Z1の書式などは、印刷されても邪魔にならないように工夫してください。
Z1セルへの編集で、ブックのSavedプロパティが更新されますので、
そのあたりの考慮も入れた方がいいかもしれません。
|
|