Vba 印刷設定のみ行うダイヤログありますか？

いつもお世話になります

今、Vbaを使ってDocuworksに出力する際、カラーから白黒印刷（グレーモード）に
切り替えたいときに印刷設定のみダイヤログを表示して、SendKeyで設定を変更してプリント
してみようと考えています

出力はプログラムの機能上、AActiveSheet.PrintOut ActivePrinter:="DocuWorks Printer"を
使いたいので設定だけしたいと考えています

以上、何かありましたら教えてください
よろしくお願いいたします

No.1 ベストアンサー 回答者： fujillin 回答日時： 2025/01/23 17:37

こんばんは

ちょっとご質問の内容がよくわからないのですが・・

「印刷設定のダイアログを表示したい」ということなら
　　Application.Dialogs(8).Show
で可能です。
https://learn.microsoft.com/ja-jp/office/vba/api …

「印刷設定を白黒にしたい」のであるなら、ダイアログ経由でなくても
　　ActiveSheet.PageSetup.BlackAndWhite = True
でできませんか？
https://learn.microsoft.com/ja-jp/office/vba/api …

※ Docuworksプリンターの場合、特殊性があるかもしれませんので、上記でうまく行くのかはわかりませんけれど、ご参考にでもなれば。

この回答へのお礼

こんにちは
いつもお世話様です

ActiveSheet.PageSetup.BlackAndWhite = True　はダメなんです
セルに塗りつぶしがあると消えてしまうのでグレースケールにしたいのです

Application.Dialogs(8).Showで最後にOKをクリックすると印刷されすよね
設定だけで印刷させたくないんです
テストしたところキャンセルでも設定が残りそうですね
使ってみます

ところで引数の８は何か意味が有るのですか？

いつも早々とありがとうございます
以上、よろしくお願いいたします

お礼日時：2025/01/23 18:14