excel

Question

378

70pt

印刷で、グレースケールのあと初期設定に戻す。
　これをマクロで出来ないのですがナゼ？　
　　また、出来る方法は。

回答の条件

※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。

コメントはまだありません

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

回答リクエストを送信したユーザーはいません

03 · Answer 1 · 2009-11-05T10:41:28+09:00

プリンタ側の設定はVBAでは難しそうですが、Excel側の設定で同じ結果が出そうです。

airplant · Answer 2 · 2009-11-05T16:15:11+09:00

プリンタ側の設定はExcel VBA標準では、残念ながらできません。ですから、マクロの記録を行っても、操作が記録されません。

なお、相当高度な知識があれば、プリンタドライバを調査して作成することは不可能ではないと思います。

グレースケールの替わりにExcel標準の白黒印刷で良ければ、次のコードでできます。

ActiveSheet.PageSetup.BlackAndWhite = True '白黒にする
　　：
ActiveSheet.PageSetup.BlackAndWhite = False '元に戻す

一番いいのは、設定の違うプリンタを二つ用意して、ActivePrinterを切り替える方法です。

詳細は、下記の「5)プリンタを指定する」、「6)プリンタを一時変更する」を参考にしてみてください。Excel 2000のチェックが入っているので、そのif文は外してください。

回答（2件）