VBSでエクセルを起動し指定のシートを印刷する。
Dim objXls, objWorkbook
Set objXls = CreateObject("Excel.Application")
objXls.Visible = False '非表示で起動
'Workbookを開く
Set objWorkbook = objXls.Workbooks.Open("C:\テスト\bb.xls")
'シート名を指定してアクティブにする
objXls.Sheets("天下統一").Activate
objXls.ActiveWindow.ActiveSheet.PrintOut
'Workbookを閉じる
objWorkbook.Close
objXls.Quit