Excel VBAを使って白黒印刷がデフォルトのプリンタでカラー印刷したい

前提・実現したいこと

白黒印刷（カラー対応）がデフォルトの環境でExcel VBA を使って、Excelをプリントアウトする時、自動的にカラーに変えて、印刷が終わったら白黒印刷に戻したい。追加でカラーの印刷キューはこの環境で作れない。

発生している問題・エラーメッセージ

白黒で印刷される。
手動で設定しないといけない。

該当のソースコード

Excel VBA

Application.Dialogs(xlDialogPrinterSetup).Show

ActiveSheet.PageSetup.BlackAndWhite = False

試したこと

やり方は二つあるかなと思います。
１つ目はApplication.Dialogs(xlDialogPrinterSetup).Showを入力するとプリンタの一覧が出てききます。ここでプリンタとカラー印刷を選ぶとその特定のプリンタからカラー印刷が出てきます。しかし、手動ではなく、VBAが自動でプリンタとカラー印刷を選択してもらいたいのですが、いくらトライしても自動にはならないので、困っています。

２つ目はActiveSheet.PageSetup.BlackAndWhite = False　を入力するとカラーで出てくるはずでなのですが、出てきません。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

hihijiji

2019/02/05 08:07

ActiveSheet.PageSetup.BlackAndWhite = False で良いはずですが、どの様に印刷指示を出してますか？

SnowBallEffect

2019/02/05 08:24

hihijijiさん、返信ありがとうございます。印刷指示は以下になります。 ActiveWorkbook.Sheets("REPORT").PrintOut Copies:=3, ActivePrinter:="\\Server\Printer_Name", Collate:=True, _ IgnorePrintAreas:=False

行動規範の内容に同意します

回答2件

プリンタ自体の設定が白黒になっているのであれば、カラー設定するのは難しいのではと思います。
Excelからプリンタまでの経路は以下のようになっていると思います。

Excel→(白黒/カラー)→プリンタドライバ→(白黒)→プリンタ

BlackAndWhiteで指示しているのはあくまでもExcel→プリンタドライバ間の指示だけなので、プリンタドライバから先の設定が白黒になっていたら、いくらExcelからカラーの指示を出しても無意味です。
これを回避するには質問者様の案どおりダイアログから操作するか、プリンタドライバを直接制御することになると思います。
プリンタドライバを制御する場合、プリンターメーカーからAPIが公開されている必要があると思われます。

追加でカラーの印刷キューはこの環境で作れない。

これはプリンターの設定を新たに作れないことをおっしゃっていますでしょうか。
可能であるなら同じプリンターをひとつ追加して、その設定をカラーにすれば済むと思うのですが。

投稿2019/02/05 23:58

ttyp03

総合スコア16998

ttyp03

2019/02/06 01:03

hihijijiさんの方法で解決できたようですね。最近はプリンタの制御が効かないプリンタも増えてきているようなので、その機種に該当しているのかと思い回答しました。以下の記事を参考にしました。 https://dev.grapecity.co.jp/support/kb/detail.asp?id=33463

SnowBallEffect

2019/02/06 05:39

ttyp03さん、ありがとうございます。今後参考にします。また、ぜひ宜しくお願い致します。

ttyp03

2019/02/06 05:41

いえいえ、お役に立てずにすみません。簡単な手段で対応できてよかったです。

行動規範の内容に同意します

ベストアンサー

印刷指示の直前に入れてみてください。

VBA
1    With ActiveWorkbook.Sheets("REPORT")
2        .PageSetup.BlackAndWhite = False
3        .PrintOut Copies:=3, ActivePrinter:="\Server\Printer_Name", _
4        Collate:=True, IgnorePrintAreas:=False
5    End With

投稿2019/02/05 08:49

hihijiji

総合スコア4150

SnowBallEffect

2019/02/06 00:42

hihijijiさん、素晴らしいです。解決できました！　With と End With が必要だったのですね。ありがとうございました！！

hihijiji

2019/02/06 02:25

Withはたんなる構文です。原因はActiveSheetを使った事でしょう。 VBAトラブルの原因として、かなり多いが ActiveSheet, ActiveWindow などのActiveほにゃららです。 Activeほにゃららは利用の度に無作為に変更されてると思って下さい。 ActiveWorkbook　は変更されることは多くは無いですが、これも絶対ではありません。

行動規範の内容に同意します

あなたの回答