vba 印刷設定でのカラー印刷と白黒印刷の設定変更について教えてください

いつもお世話になります

今、VBAでDocuworksに印刷するときにカラー印刷を白黒印刷にしたいのでが
Webで調べるとなかなか良い結果が得られません

Excelのページセットアップから白黒印刷を指定すると塗りつぶしたセリの色が灰色にならず
消えてしまいます、何とか印刷設定での白黒印刷をVbaから実行したいのですが
無理でしょうか？

Application.Dialogs(xlDialogPrint).ShowにArg8というのもありましたがMac用みたいです

もし、何か良い方法か資料がありましたら教えてください
以上、宜しくお願い申し上げます

No.1 ベストアンサー 回答者： Andro 回答日時： 2025/01/14 12:59

https://x.com/i/grok/share/25r0iOuHQGBbOzRmLj6rl …

この回答へのお礼

早速ありがとうございます

参考になります
いつもありがとうございます
これからもよろしくお願い申し上げます

お礼日時：2025/01/14 13:47

No.2 回答者： fujillin 回答日時： 2025/01/14 14:23

こんにちは

当方Docuworks環境がないので、試せませんが・・・

VBAでのご質問ですが、
＞白黒印刷を指定すると塗りつぶしたセリの色が灰色にならず
＞消えてしまいます
仮に、手動で印刷すれば灰色になるという事でしょうか？
それができるのなら、印刷設定の問題ですし、手動でもできないのであれば他の方法を考える必要があるのではと思います。
（セルの色が黒の要素を含んでいなければ、白黒の場合に色が付かないのかも）

印刷の設定の場合、もしかするとDocuworksのAPIを利用する必要があるのかもしれません。
調べてはいませんが、VBA用のAPIは用意されているようです。
http://tokidokidokin.com/2010/09/fuji-xerox-docu …


後者の場合の1案として
　1）印刷用に、対象シートの複製（値のみ）を作成します
　　（印刷用シートは印刷後に削除）
　2）シート内の色付きセルを灰色に変更
　　（複数食ある場合は、ティントなどで濃淡で表示）
　3）印刷用シートを印刷。
のようなものも考えられるかと思います。
（要は、原稿を一旦白黒に変換して、それを印刷するという考え方）

この回答へのお礼

すみません
忙しく、お礼が遅くなりました

私もAPIは使っています
あそらく　XDW_GetPageColorInformationのことと思います

ちょっと検討してみます
ありがとうございます
これからもよろしくお願い申し上げます

お礼日時：2025/01/16 15:19