ＥＸＣＥＬ ＶＢＡ シートの連続印刷に白黒印刷

ＥＸＣＥＬ　ＶＢＡの初心者です。回答、指導をよろしくお願いします。ＥＸＣＥＬ2003を使用しています。シートＡとＢを連続で印刷するＶＢＡに白黒で印刷するＶＢＡを加えたいのですが記述方法がわかりませんのでご指導お願いします。シートの連続印刷ＶＢＡは下記ですが、これでよろしいでしょうか。どなたかご指導よろしくお願いします。
Sub purint複数シート印刷()
Sheets(Array("A", "B")).PrintOut
End Sub

No.1 ベストアンサー 回答者： jcctaira 回答日時： 2011/06/30 10:29

yasuo7211さん　こんいちは。

シートごと白黒印刷のプロパティを設定すれば良いと思います。
　
Sub purint複数シート印刷()
　　Sheets("A").PageSetup.BlackAndWhite = True
　　Sheets("B").PageSetup.BlackAndWhite = True
　　Sheets(Array("A", "B")).PrintOut
End Sub

この回答へのお礼

早速の回答ありがとうございます。ＶＢＡコードを記述していただき感謝しております。早速、自宅のパソコンで実行してみます。ありがとうございました。

お礼日時：2011/06/30 12:54