ドロップしたエクセルをブック印刷する

tmp = tmp & vbNewLine & "----------------------------------------"
tmp = tmp & vbNewLine & " "
tmp = tmp & vbNewLine & "●ドロップしたエクセルをブック印刷する "
tmp = tmp & vbNewLine & " 　非表示シート対応版 "
tmp = tmp & vbNewLine & " "
tmp = tmp & vbNewLine & "----------------------------------------"
tmp = tmp & vbNewLine & " "
tmp = tmp & vbNewLine & "操作方法 "
tmp = tmp & vbNewLine & " エクセルファイルをこのVBSに "
tmp = tmp & vbNewLine & " ドラッグ＆ドロップする。 "
tmp = tmp & vbNewLine & " 複数ファイルもドロップ可能 "
tmp = tmp & vbNewLine & " "
tmp = tmp & vbNewLine & "出力先 "
tmp = tmp & vbNewLine & " 標準のプリンタに出力します "
tmp = tmp & vbNewLine & " "

If ( WScript.Arguments.Count = 0 ) Then
WScript.Echo tmp
WScript.Quit
End If

Dim fName
Dim xlApp
Dim xlWb

Set xlApp = WScript.CreateObject("Excel.Application")
For Each fName in WScript.Arguments
Set xlWb = xlApp.Workbooks.Open(fName)
xlApp.ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,3,,,TRUE,,FALSE)"
xlWb.Close False
Next
xlApp.Quit
Set xlApp = Nothing