[[20060502174718]]　『印刷されない塗りつぶし』（ＭＯＴＯ）　ページの最後に飛ぶ

『印刷されない塗りつぶし』（ＭＯＴＯ）

セルにロックをはずして保護をかけました。ロックをはずしたところに
わかりやすいように色を付け、そこだけ印刷時には印刷しないようにしたいので出来ますか？教えてください。

 ＞そこだけ印刷時には印刷しないようにしたい
セルの背景色だけ？
それともセルの背景色と文字も印刷しない？
　
全体としてはカラー印刷でしょうか、それとも白黒印刷でしょうか。
(みやほりん)(-_∂)b

 みやほりん様　ありがとうございます。

 　①セルの背景色だけ印刷しないです。
 　②カラー印刷です。

 宜しくお願いします。

 該当セル以外には印刷したいカラー部分があるということですね。
なければ「白黒印刷」の設定だけですむのですが。
　
Excelの基本設定だけで特定の特徴のあるセルの色を印刷したり、
印刷しなかったり、ということはできません。
これを自動でこなすにはマクロが必要です。
　
以下マクロでの例。
該当ブックを開いた状態でAltを押しながらF11、VBEが起動します。
「プロジェクト」と書かれたウィンドウでThisWorkBookをダブルクリック。
下記のコードを貼り付けます。
このときに対象としているシートをSheet1、対象範囲を"A1:G60"と限定してますので、
それぞれ適当なシート名、セル範囲に変更しなくてはなりません。
　
 Private Sub Workbook_BeforePrint(Cancel As Boolean)
     Dim C As Range
     Application.EnableEvents = False
     Cancel = True
     With ActiveSheet
         If .Name = "Sheet1" Then
             For Each C In .Range("A1:G60")
                 If C.Locked = False Then
                     C.Interior.ColorIndex = xlColorIndexNone
                 End If
             Next C
             Application.ActiveSheet.PrintOut
             For Each C In .Range("A1:G60")
                 If C.Locked = False Then
                     C.Interior.ColorIndex = 36
                 End If
             Next C
         End If
     End With
     Application.EnableEvents = True
 End Sub
　
貼り付け、修正が終わったら　Alt　押しながら　Q　でExcelへ戻り、
印刷してみてください。
ちなみに私が自分でやるなら・・・・
「入力用シート」と「印刷用シート」に分ける。
もしくは、
「入力用ビュー」と「印刷用ビュー」に分ける。
という設計とします
　
(みやほりん)(-_∂)b

みほりんさん　本当にありがとうございます。
「白黒印刷」の設定で出来ました。
私には、マクロは難しいので簡単な方法で出来ました。
本当に助かりました。(◎-◎)　　　ＭＯＴＯより

教えて下さい。「白黒印刷」の設定とは、どうやって設定するのですか？エクセルの設定ですか？プリンターの設定ですか？（yy）

 ファイル→ページ設定→シート→「印刷」に「白黒印刷」はありませんか？

 (Ohagi)

あっありました！　ありがとうございました！(ｙｙ)

コメント返信：

[ 一覧(最新更新順) ]

[[20060502174718]] 『印刷されない塗りつぶし』（ＭＯＴＯ） ページの最後に飛ぶ

[[20060502174718]]　『印刷されない塗りつぶし』（ＭＯＴＯ）　ページの最後に飛ぶ