1С77 сохранить в Excel с масштабом странице по "ширине страницы"

ExcelPS= ExcelWorkBook.ActiveSheet.PageSetup;
         Попытка
		ScrptCtrl = СоздатьОбъект("MSScriptControl.ScriptControl"); 
		ScrptCtrl.Language="vbscript"; 
		ScrptCtrl.AddCode("Function SetAutoZoom() 
			|  ExcelPS.Zoom = False
			|  ExcelPS.FitToPagesWide = 1 
	                |  ExcelPS.FitToPagesTall = 10
	                |End Function");
	         ScrptCtrl.AddObject("ExcelPS", ExcelPS); 
	         ScrptCtrl.Run("SetAutoZoom") 
	Исключение
	         сообщить(ОписаниеОшибки())
	КонецПопытки;
	ExcelWorkBook.ExportAsFixedFormat(0, ПолныйПутьФайла , 0);
КонецЕсли;