Excel VBA質問箱 IV

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

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


3684 / 13646 ツリー ←次へ | 前へ→

【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 お礼[未読]

【60735】印刷時に着色しない設定
質問  sim  - 09/3/12(木) 10:04 -

引用なし
パスワード
   お世話になります。
シートに入力不要の箇所を着色していますが、印刷すると着色されたまま
印刷されますが、入力不要箇所も着色しない状態で印刷することは可能で
しょうか?すみませんがどなたかご教授願います。

【60736】Re:印刷時に着色しない設定
発言  つん  - 09/3/12(木) 10:28 -

引用なし
パスワード
   ▼sim さん:

又、私ですみません^^;

>シートに入力不要の箇所を着色していますが、印刷すると着色されたまま
>印刷されますが、入力不要箇所も着色しない状態で印刷することは可能で
>しょうか?すみませんがどなたかご教授願います。


印刷の設定で、白黒印刷などの設定は出来ると思いますが、
色設定したのを解除するのはムリだと思います。
ので、印刷用にシートを印刷用にコピーして、
そこで、色を解除して印刷。

そういうマクロを組まれたらいいかなあ・・・

【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プロパティが更新されますので、
そのあたりの考慮も入れた方がいいかもしれません。

【60739】Re:印刷時に着色しない設定
お礼  sim  - 09/3/12(木) 13:43 -

引用なし
パスワード
   いろいろな意見ありがとうございます。
もう少しチャレンジしてみなす。

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