EXCELのマクロで、モノクロ印刷ボタンを作りたい

EXCELで、誤ってカラー印刷するのを防ぐため、
「印刷ボタン」を「モノクロ印刷ボタン」に変更したいと思っています。
モノクロ印刷マクロを作って、ボタンに登録しようと思ったのですがうまくいきません。
マクロでは、プリンタドライバ機能を指定することはできないのでしょうか。
せめて、プリンタオプション画面を開くマクロは作れないでしょうか？

ご回答、よろしくお願い致します。

No.3 ベストアンサー 回答者： KenKen_SP 回答日時： 2008/06/04 12:06

こんにちは。

' // プリンタオプション画面を開く
Sub ShowPrinterPropatiesPage()
　　SendKeys "%R"
　　Application.Dialogs(xlDialogPrint).Show
End Sub

' // モノクロ印刷（一時的にモノクロ印刷する場合）
Sub PrintWhileAndBlack()
　　
　　Dim sh　　　As Worksheet
　　Dim fBackup As Boolean
　　
　　Set sh = ActiveSheet
　　fBackup = sh.PageSetup.BlackAndWhite
　　sh.PageSetup.BlackAndWhite = True
　　sh.PrintOut 'Preview:=True
　　sh.PageSetup.BlackAndWhite = fBackup
　　Set sh = Nothing

End Sub

この回答への補足

ご回答ありがとうございます！
プリンタオプションの画面開けるのですね。
ありがとうございます！

モノクロ印刷も試してみましたが、やはりセルの色が出ないので、
オプション画面のほうを採用させていただきたいと思います。
ありがとうございました。

補足日時：2008/06/04 13:09

No.2 回答者： hallo-2007 回答日時： 2008/06/04 12:00

プリンタドライバの操作でなくて、エクセルに白黒印刷の機能があります。

「ファイル」「ページ設定」印刷のところの白黒印刷にチェック入れます。
これだけでも、誤ってカラー印刷するのを防ぐ　事は出来ると思います。
一応、マクロの記録で確認したら、多分
With ActiveSheet.PageSetup
・・・・
.BlackAndWhite = False
・・・・
End With
の部分だと思います。

この回答へのお礼

早速のご回答ありがとうございます！
ただ、白黒印刷だとセルの色が表示されないので…
できればグレースケールにしたいのです。

お礼日時：2008/06/04 13:07

No.1 回答者： hana-hana3 回答日時： 2008/06/04 11:57

ＶＢＡではプリンタ固有の設定（印刷オプション）を操作する事はできません。

できるのはこれだけでしょう。

Sub PrintDialog()
'印刷設定ダイアログ表示
Application.Dialogs(xlDialogPrint).Show
End Sub

Sub PrintSetup()
'ページ設定ダイアログ表示
Application.Dialogs(xlDialogPageSetup).Show
End Sub

この回答へのお礼

早速のご回答ありがとうございます！
印刷オプションの表示はできないんですね…。

お礼日時：2008/06/04 13:09