全シート左上選択（ウインドウ枠固定対応）

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 & "　上書き保存します。 "
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 & " "
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)
For Each xlSht in xlWb.WorkSheets
xlSht.Activate
If xlApp.ActiveWindow.FreezePanes = False Then
xlSht.Range("A1").Activate
Else
xlSht.Cells(xlApp.ActiveWindow.SplitRow+1,xlApp.ActiveWindow.SplitColumn+1).Activate
End If
Next
xlWb.Worksheets(1).Activate
xlWb.Save
xlWb.Close False
Next
xlApp.Quit
Set xlApp = Nothing
WScript.Echo "実行完了"

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

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