Excel (一般機能)

Excelの一般機能に関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(指定なし : 指定なし)
シートの印刷について
投稿日時: 18/03/20 09:07:11
投稿者: zero2

シートのセルの背景にところどころ色がついており、文字もほとんどが黒で数か所が赤になっています。
印刷する際、背景色を印刷しないようにプリンタの設定でグレースケールを選択、白黒印刷しています。
すると赤い文字も黒に印刷されます。
これを背景色は印刷せず、文字だけ現状のように黒と数か所赤のまま印刷できないでしょうか?
アドバイスお願いします。

回答
投稿日時: 18/03/20 09:12:39
投稿者: めんたん

回答しようと思ったら一般のほうに移動していたんですね。
 
一応書いたので載せておきます。
該当シートをコピーする→セルの塗りつぶしを解除→印刷→コピーしたシートを削除する
というコードです。
 
Sheets("hoge").Copy after:=Sheets(Sheets.Count)
With Sheets(Sheets.Count)
    .Cells.Interior.ColorIndex = 0
    .PrintOut
    Application.DisplayAlerts = False
    .Delete
    Application.DisplayAlerts = True
End With
    

投稿日時: 18/03/20 10:28:49
投稿者: zero2

めんたん 様
 
うまくいきました。
回答ありがとうございました。