vbsでexcelファイルを印刷したいのですが、印刷部数の設定がどうし

質問

vbsでexcelファイルを印刷したいのですが、印刷部数の設定がどうしてもわかりません。
他で見つけたスクリプトですが…。

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

ご教授お願いいたします。

回答No.1

keithin · ベストアンサー

….Printout ,,3

などのように。

＃しばしば，うっかりPDF等を出させるプリンタになっていて部数が出ない失敗をします。

お礼

ありがとうございます。
printout,2とか、printout 2とか、Copies ="2"とか、色々やってはみたのですが…。
助かりました。