前提・実現したいこと
白黒印刷(カラー対応)がデフォルトの環境でExcel VBA を使って、Excelをプリントアウトする時、自動的にカラーに変えて、印刷が終わったら白黒印刷に戻したい。追加でカラーの印刷キューはこの環境で作れない。
発生している問題・エラーメッセージ
白黒で印刷される。
手動で設定しないといけない。
該当のソースコード
Excel VBA
Application.Dialogs(xlDialogPrinterSetup).Show
ActiveSheet.PageSetup.BlackAndWhite = False
試したこと
やり方は二つあるかなと思います。
1つ目はApplication.Dialogs(xlDialogPrinterSetup).Showを入力するとプリンタの一覧が出てききます。ここでプリンタとカラー印刷を選ぶとその特定のプリンタからカラー印刷が出てきます。しかし、手動ではなく、VBAが自動でプリンタとカラー印刷を選択してもらいたいのですが、いくらトライしても自動にはならないので、困っています。
2つ目はActiveSheet.PageSetup.BlackAndWhite = False を入力するとカラーで出てくるはずでなのですが、出てきません。
補足情報(FW/ツールのバージョンなど)
ここにより詳細な情報を記載してください。
回答2件
あなたの回答
tips
プレビュー