;Печать файла Excel	
	$MyExcel = ObjCreate("Excel.Application")
	$MyFile = "New Лист Microsoft Excel.xls"
	$MyPath = "C:\"
	$MyExcel.Visible =  1 
	$MyExcel.workbooks.open($MyPath & $MyFile)
	WinWait("Microsoft Excel - " & $MyFile,"")
	If Not WinActive("Microsoft Excel - " & $MyFile,"") Then WinActivate("Microsoft Excel - " & $MyFile,"")
	WinWaitActive("Microsoft Excel - " & $MyFile,"")
	Send("^{p}")
	WinWait("Печать","")
	If Not WinActive("Печать","") Then WinActivate("Печать","")
	WinWaitActive("Печать","")
	Send("{ENTER}")
	$MyExcel.Quit ;Или Send("!{F4}")
exit

Dim objExcel
Dim strFile
Set objExcel = CreateObject("Excel.Application")
strFile = "C:\New Лист Microsoft Excel.xls"
objExcel.Visible = True
objExcel.Workbooks.Open  strFile
objExcel.ActiveWindow.SelectedSheets.PrintOut 'Copies:=1, Collate:=True
objExcel.Quit