教えて!ExcelVBA!

ExcelVBAの基礎知識・書き方について紹介します。

ExcelVBAで白黒で印刷する方法

構文

構文は以下の通りです。

ActiveSheet.PageSetup.BlackAndWhite = True

解説

ActiveSheet.PageSetupは、アクティブなシートの印刷設定を行います。BlackAndWhiteは、Trueにすると白黒で印刷され、Falseにするとカラーで印刷されます。

プログラミング例

具体的なプログラミング例を紹介します。

Sub 白黒印刷設定()
    ' 白黒で印刷するように設定します
    ActiveSheet.PageSetup.BlackAndWhite = True
    ' 設定を反映させた後、印刷プレビューを表示します
    ActiveSheet.PrintPreview
End Sub

上記のプログラムを実行すると、現在アクティブになっているシートが白黒で印刷されるように設定されます。最後に、印刷プレビューが表示され、どのように印刷されるかを確認できます。

まとめ

ActiveSheet.PageSetup.BlackAndWhite = Trueを使うことで、簡単に白黒印刷の設定ができます。白黒印刷の設定は、特にインクの節約やモノクロで十分な資料を印刷する際に便利です。