VBSでExcelファイル印刷時のプリンタ指定
VBSでExcelファイルを印刷する際、場合によってはプリンタを変えて印刷したいのですが、プリンタの指定をどのようにコーディングすれば良いのか分かりません。
印刷時のソースは下記のとおりです。
Set Excel = CreateObject("Excel.Application")
Set objWkBk = Excel.Workbooks.Open("C:\Test.xls", , False)
Excel.ActiveWindow.SelectedSheets.PrintOut()
Excel.DisplayAlerts = False
Excel.quit()
objWkBk.close
Set objWkBk = Nothing
Set Excel = Nothing
上記コーディングに下記(1)～(4)を追加または、修正して試してみましたが、エラーとなってしまいます。
(1)Application.ActivePrinter = "\\NAS0013W\Kyocera LS-6700SKX2"
(2)Excel.ActivePrinter = "\\NAS0013W\Kyocera LS-6700SKX2"
(3)Excel.ActiveWindow.SelectedSheets.PrintOut("\\NAS0013W\Kyocera LS-6700SKX2")
(4)Excel.ActiveWindow.SelectedSheets.PrintOut(ActivePrinter = "\\NAS0013W\Kyocera LS-6700SKX2")
そもそも、vbsからはプリンタの指定はできないのでしょうか？
ご教授いただきたく、よろしくお願いいたします。
お礼
思っていた作業がばっちりできました。 ありがとうございました。