Excel VBA テクニック集
背景等の色を除いて印字

背景等の色を除いて印字方法です。

資料を作る場合、入力しやすいように背景色を付けたりします。しかし、その資料を対外的な資料（請求書など）にする場合、色を取らなければなりません。

使い方は、ファイル一覧を使った応用の、「マクロ専用ファイル」によるマクロ実行に、下記コードを入れます。

    Dim Range_Obj As Object
    On Error Resume Next
   
    Excel_App.ActiveSheet.Copy '新しいシートにコピー
    Excel_App.ActiveSheet.Cells.Font.ColorIndex = xlAutomatic '文字の色を黒くする
    Excel_App.ActiveSheet.Cells.Interior.Color = xlNone '背景色をなくす
    Set Range_Obj = Excel_App.ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas, xlErrors) 'エラー検索
    If Err = 0 Then
        Range_Obj.Value = "" 'エラー消去
        End If
    Err.Clear
    Set Range_Obj = Excel_App.ActiveSheet.Cells.SpecialCells(xlCellTypeConstants, xlErrors) 'エラー検索
    If Err = 0 Then
        Range_Obj.Value = "" 'エラー消去
        End If
    Err.Clear
    Excel_App.ActiveSheet.PrintOut '印字  
    Excel_App.ActiveWorkbook.Close SaveChanges:=False 'シートを閉じる

さらに、そもそも印刷プロパティを白黒に設定して印刷してもＯＫです。ただし、本当の白黒であって、灰色（グレー）の印刷はできません。

    Excel_App.ActiveSheet.PageSetup.BlackAndWhite = True
    Excel_App.ActiveSheet.PrintOut

Excel VBA テクニック集背景等の色を除いて印字

Excel VBA テクニック集
背景等の色を除いて印字