Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


21396 / 76732 ←次へ | 前へ→

【60737】Re:印刷時に着色しない設定
回答  ひつまぶし  - 09/3/12(木) 12:07 -

引用なし
パスワード
   その入力不要の色づけされたセルについて、既に条件付書式の設定が行われていなければ、
条件付書式でコントロールするというのはどうでしょうか?
一般の書式設定における背景色セットよりも条件付き書式の設定の方が優先することを利用するものです。

具体的には、印刷時に色を消したいセルについて、条件付書式設定で背景色を"色なし"に設定する。
その条件として、適当な未使用のセル(例: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プロパティが更新されますので、
そのあたりの考慮も入れた方がいいかもしれません。

0 hits

【60735】印刷時に着色しない設定 sim 09/3/12(木) 10:04 質問
【60736】Re:印刷時に着色しない設定 つん 09/3/12(木) 10:28 発言
【60737】Re:印刷時に着色しない設定 ひつまぶし 09/3/12(木) 12:07 回答
【60739】Re:印刷時に着色しない設定 sim 09/3/12(木) 13:43 お礼

21396 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free