エクセル自動印刷【VBS】

 'Excelを起動
Set objExcel = CreateObject("Excel.Application")

Set ExcelBook = objExcel.Workbooks.Open("ファイル名")
'シート指定
objExcel.Workbooks(1).Sheets("シート名").Select
'印刷
objExcel.ActiveWindow.SelectedSheets.PrintOut
'ファイルを閉じる
objExcel.Workbooks(1).Close
 'Excel終了
objExcel.quit() Set objExcel = Nothing