ドロップしたエクセルをプレビュー表示（ブック全体）する

'----------------------------------------
' xlsPreview.vbs
'
'ドロップしたエクセルをプレビュー表示（ブック全体）する
'
'----------------------------------------
' 操作方法
' エクセルファイルをドラッグ＆ドロップするだけ
' 複数ファイルもドロップ可能ですが、一度に１つしか表示できません。
' 次のエクセルが見たい場合は、印刷プレビューを「閉じる」してください。
'
' 出力先
' 標準のプリンタに出力します
'
Dim fName
Dim xlApp
Dim xlWb

Set xlApp = WScript.CreateObject("Excel.Application")

xlApp.Visible = True
For Each fName in WScript.Arguments
Set xlWb = xlApp.Workbooks.Open(fName)
xlWb.Worksheets.PrintPreview
xlWb.Close False
Next
xlApp.Quit
Set xlApp = Nothing

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

'----------------------------------------
' xlsPrint.vbs
'
'ドロップしたエクセルをブック印刷する
'
'----------------------------------------
' 操作方法
' エクセルファイルをドラッグ＆ドロップするだけ
' 複数ファイルもドロップ可能
'
' 出力先
' 標準のプリンタに出力します
'
Dim fName
Dim xlApp
Dim xlWb

Set xlApp = WScript.CreateObject("Excel.Application")
For Each fName in WScript.Arguments
Set xlWb = xlApp.Workbooks.Open(fName)
xlWb.Worksheets.Printout
xlWb.Close False
Next
xlApp.Quit
Set xlApp = Nothing