'モノクロ印刷に設定する
Worksheets("Sheet1").PageSetup.BlackAndWhite = True
「Sheet1」をモノクロ印刷にする
'カラー印刷に設定する
Worksheets("Sheet1").PageSetup.BlackAndWhite = False
「Sheet1」をカラー印刷にする
印刷を行う際にカラーかモノクロかを切り替えるには、SheetオブジェクトのPageSetup.BlackAndWhiteプロパティを利用します
このプロパティにTrueを設定することでモノクロ印刷となり
Falseを設定することでカラー印刷となります
印刷する際に確認用はモノクロで、提出用にカラー印刷を行うような場合の処理作成で活用できます
プリンターのプロパティから設定をいちいち切り替える必要が無くなります
そもそもプリンターのプロパティはVBAでは設定を変更できません
上記の画像の通りで、プロパティをそれぞれに設定することで簡単に印刷時の配色設定を変更することが出来ます
この設定はページ設定になるのでプリンターでの印刷だけでなく
PDF出力に対しても有効な点は注意が必要です