ＶＢ６からのエクセルの印刷品質の設定方法について

エクセルの印刷品質が空白だったりすると問題がでるケースがあるので、
強制的に　６００　などの印刷品質の設定をＶＢでエクセルを読み込んだ後に
行いたいのですが、うまくいきません。

Dim objBook As Workbook
Set objBook = .Workbooks.Open(strFilePath, False, True)

objBook.印刷品質設定　　←うまく印刷品質の設定をできるコマンドがわからない？

obj.book印刷実施

No.1 回答者： temtecomai2 回答日時： 2011/06/15 17:37

空白になるってことが経験ないのでイマイチわかりません。

印刷品質の設定は
ActiveSheet.PageSetup.PrintQuality = 1200
てな感じですが、この数値は対象プリンタのドライバに依存しますから、使用者のプリンタが多種多様で不明な場合は危険ですね。
「現在使っているプリンタの最高品質」 というのならサンプルコードが過去質問にありました。
http://oshiete.goo.ne.jp/qa/1461631.html