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
こんな記事も書いています