VBScriptでエクセル印刷モード起動

質問

おせわになります。
表題の通り、VBScriptを使ってあるエクセルブックを印刷モードで起動したいと思っています。
印刷モードで起動とは、例えばエクセルブックのアイコンをマウスで右クリックして「印刷」を選んだ時と同じ動作です。

ちなみに下記の方法でエクセル起動は出来ました。

' Excel起動
Set obj = CreateObject("Excel.Application")
Set WSHShell = CreateObject("Wscript.Shell")
WSHShell.Run "EXCEL.exe " & strCsvFilename
'印刷
WSHShell.sendkeys "%FP"

ただ、この方法では一度エクセルブックを開いて印刷ダイアログが表示されるまでなのです。
エクセルブックを開かずに印刷実行する方法をご存じの方どうぞアドバイス下さい。

回答No.1

Math_Math · ベストアンサー

CreateObjectでExcelアプリケーションを作成しているのなら、そのままWorkbookとしてCsvファイルをOpenして、印刷を実行すればいいはずですよ。

ちなみにWin2000、Office2000環境で下記で印刷できました。

Set obj = CreateObject("Excel.Application")
Set WSHShell = CreateObject("Wscript.Shell")
Set objWkBk = obj.Workbooks.Open("D:\TEST.csv")
obj.ActiveWindow.SelectedSheets.PrintOut()
obj.quit()
Set obj = Nothing

＃CreateObjectした後にRunすると、CreateObjectで作成したExcelのタスクが残ってしまいますよ。

お礼

わざわざソースのご提示までありがとうございます。
おかげさまでやりたかった事が出来るようになりました。
本当にありがとうございました。