2016-06-19 11 views
0

ブックが19枚あります。シート内のセルは色分けされており、ユーザーは編集内容を知ることができます。印刷すると、印刷領域のセルを白く設定することになっています。私は通常、このステップを忘れて、それを転載しなければならない。セル塗りつぶしなしで印刷するがセルのテキストを維持する色

理想的には、このプロセスを自動化したいと思います。解決策を見つけようとする私の試みは、私が白黒でシートを印刷することを示唆しています。これは、セルの内容も色分けされているので、私が使用したい解決策ではありません。

セルの塗りつぶしの色のみを削除して印刷し、元の書式に戻す方法はありますか? VBAのオプションは問題ありません。

+0

あなたが印刷または色の滞在時にセルの色がクリアされるようにしたいですか?あなたは「あなたがそのままにしておきたい」と言って、「セルの塗りつぶしの色だけを取り除き、それを印刷したい」と答えます。 – dbmitch

+0

@dbmitchテキストは色付きで、セルの塗りつぶし色はすべてのセル。 – C1pher

+0

各シートには印刷領域があらかじめ定義されていますか? – dbmitch

答えて

1

用途:

ClearPrint "シート1"

Sub ClearPrint(WorksheetName) 
    Sheets(WorksheetName).Copy Before:=Sheets(1) 
    With Sheets(1).Cells.Interior 
     .Pattern = xlNone 
     .TintAndShade = 0 
     .PatternTintAndShade = 0 
    End With 
    Sheets(1).PrintOut 
    Application.DisplayAlerts = False 
    Sheets(1).Delete 
    Application.DisplayAlerts = True 
End Sub 
関連する問題