印刷時に白黒で印刷する方法となります。入力されている文字などが白黒で印刷され、セルの背景色などは印刷されなくなります。
構文
記述方法は以下の通りとなります。
Sheets("[シート名]").PageSetup.BlackAndWhite = True or False
[説明]:
印刷時に白黒で印刷するには
「Sheets("[シート名]").PageSetup.BlackAndWhite = True 」
と記述します。また、白黒で印刷しない場合には
「Sheets("[シート名]").PageSetup.BlackAndWhite = False」
と記述します。
[シート名] | 白黒で印刷するシート名を記述します。 ※「”」(ダブルクォーテーション)で囲みます。 |
[記述例]:
Sheets("Sheet1").PageSetup.BlackAndWhite = True
Sheets("Sheet1").PageSetup.BlackAndWhite = False
使い方
使い方について具体的に説明します。
白黒印刷する
白黒印刷する方法について説明します。
[プログラミング例]:
Sub 白黒で印刷()
Sheets("Sheet1").PageSetup.BlackAndWhite = True
Sheets("Sheet1").PrintPreview
End Sub
内容は、「Sheet1シートを印刷時に白黒印刷する様に設定し、印刷プレビューで表示して下さい。」との意味になります。
※上記のプログラミング例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方についてはこちらを参考にして下さい。
[実行例]:
①Sheet1シートのA1セル~G8セルにデータが入力されています。<白黒で印刷>ボタンをクリックします。<白黒で印刷>ボタンには上記のプログラミング例のプログラムが登録されています。(※ボタンの作り方やボタンにプログラムを割り当てるにはこちらを参考にして下さい。)
②結果は以下の様になり、印刷時に白黒で印刷される事がプレビューで確認できます。
白黒で印刷する方法についての説明は以上です。
白黒印刷を解除(通常印刷)
白黒印刷を解除する方法について説明します。
[プログラミング例]:
Sub 白黒印刷しない()
Sheets("Sheet1").PageSetup.BlackAndWhite = False
Sheets("Sheet1").PrintPreview
End Sub
内容は、「Sheet1シートを印刷時に白黒印刷を解除する様に設定し、印刷プレビューで表示して下さい。」との意味になります。
※上記のプログラミング例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方についてはこちらを参考にして下さい。
[実行例]:
①Sheet1シートのA1セル~G8セルにデータが入力されています。<白黒印刷しない>ボタンをクリックします。<白黒印刷しない>ボタンには上記のプログラミング例のプログラムが登録されています。(※ボタンの作り方やボタンにプログラムを割り当てるにはこちらを参考にして下さい。)
②結果は以下の様になり、印刷時に通常印刷(白黒印刷解除)される事がプレビューで確認できます。
白黒印刷を解除する方法についての説明は以上です。
[サンプル]:
上記で説明したファイルをダウンロードできます。ご自由にお使い下さい。
おわりに
今回は白黒で印刷する方法について説明しました。白黒印刷での印刷コストを抑制する場合などに活用してみて下さい。