電子書籍の厳選無料作品が豊富!

いつもお世話になります

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

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

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

A 回答 (1件)

こんばんは



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

「印刷設定のダイアログを表示したい」ということなら
  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プリンターの場合、特殊性があるかもしれませんので、上記でうまく行くのかはわかりませんけれど、ご参考にでもなれば。
    • good
    • 0
この回答へのお礼

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

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

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

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

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています


おすすめ情報

このQ&Aを見た人がよく見るQ&A