ExcelPrint.CMD ファイル MSHTA.EXE vbscript:Execute("Set xl=CreateObject(""Excel.Application""):xl.AutomationSecurity=2:Set bk=xl.WorkBooks.Open(""%~f1""):bk.PrintOut:bk.Close:Set bk=Nothing:xl.Quit:Set xl=Nothing:resizeTo 0,0:close:") ExcelPrint.VBS ファイル Set xl=CreateObject("Excel.Application") xl.AutomationSecurity=2 Set bk=xl.WorkBooks.Open(WScript.Arguments.Item(0)) bk.PrintOut bk.Close Set bk=Noth