【ExcelVBA 印刷】白黒で印刷する方法について教えて！

構文

構文は以下の通りです。

Worksheet.PageSetup.BlackAndWhite = True / False

解説

BlackAndWhiteプロパティを使用することで、印刷時に印刷物をモノクロ（白黒）で表示するかどうかを制御することができます。デフォルトでは、このプロパティはFalseに設定されており、カラーで印刷されます。BlackAndWhiteプロパティは、True（モノクロ印刷）またはFalse（カラー印刷）のいずれかの値を取ります。

使い方

BlackAndWhiteプロパティをTrueに設定すると、印刷時に印刷物がモノクロで表示されます。例えば、以下のように設定します。

Sub SetBlackAndWhite()
    Worksheets("Sheet1").PageSetup.BlackAndWhite = True
End Sub

上記の例では、"Sheet1"という名前のワークシートのBlackAndWhiteプロパティをTrueに設定しています。

プログラミング例

以下のプログラム例では、BlackAndWhiteプロパティを使用して、ワークシートの印刷物をモノクロとカラーの間で切り替える方法を示します。

Sub ToggleBlackAndWhite()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    If ws.PageSetup.BlackAndWhite = True Then
        ws.PageSetup.BlackAndWhite = False
    Else
        ws.PageSetup.BlackAndWhite = True
    End If
End Sub

上記の例では、"Sheet1"という名前のワークシートのBlackAndWhiteプロパティの現在の設定を確認し、TrueならFalseに、FalseならTrueに切り替えています。

まとめ

Excel VBAの「PageSetup.BlackAndWhite」プロパティを使用すると、印刷物をモノクロ（白黒）で印刷するかどうかを制御することができます。この機能は、印刷物をカラフルにする必要がない場合や、モノクロでの印刷が要求される場合に役立ちます。是非活用してください。