Excel VBA 白黒印刷に設定する

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

< スポンサーリンク >

 

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

ExcelVBA白黒印刷

 

書き方

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

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

 

白黒印刷設定

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

ExcelVBA白黒印刷

 

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

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

ExcelVBA白黒印刷

ExcelVBA白黒印刷

 

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

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

ExcelVBA白黒印刷

ExcelVBA白黒印刷

 

< スポンサーリンク >



サブコンテンツ

このページの先頭へ