Excel VBA 白黒印刷に設定する-BlackAndWhite

Excel VBAでワークシートを印刷する時に白黒印刷に設定する方法を記録します。

白黒印刷に設定するには「PageSetup」オブジェクトの「BlackAndWhite」プロパティを使います。

< スポンサーリンク >

構文

WorkSheetオブジェクト.PageSetup.BlackAndWhite = TRUE or FALSE

TRUE = 白黒印刷オン
FALSE = 白黒印刷オフ

VBAで白黒印刷設定

ワークシートに下図のように入力されているとします。

白黒印刷に設定して、印刷プレビューで表示してみます。

Sub test()
    ActiveSheet.PageSetup.BlackAndWhite = True
    ActiveSheet.PrintPreview
End Sub

白黒印刷の設定をオフにして、印刷プレビューで表示してみます。

Sub test()
    ActiveSheet.PageSetup.BlackAndWhite = False
    ActiveSheet.PrintPreview
End Sub

< スポンサーリンク >※広告先のお問い合わせは広告主様にお願いします