Есть код в 1с 7.7 печатающий из наперед созданных шаблонов документы (в том числе и конверты) прямо из 1с. А как можно указать В этом коде праметры страницы и параметры печати на принтер для OpenOffice? Код:Если ТекПроцессор = "OOoWriter" Тогда // Открыть OpenOffice ServiceManager = СоздатьОбъект("com.sun.star.ServiceManag er"); Desktop = ServiceManager.createInstance("com.sun.s tar.frame.Desktop"); Scr = СоздатьОбъект("MSScriptControl.ScriptCon trol"); Scr.Language="javascript"; Scr.Eval("Args=new Array()"); Args = Scr.Eval("Args"); Scr.AddObject("ServiceManager", ServiceManager); // Откроем шаблон ТекстовыйПроцессор = Desktop.LoadComponentFromURL(Преобразова тьВURL(ИмяФайла), "_blank", 0, Args); // Заменяем ключевые поля на нужные значения Replace = ТекстовыйПроцессор.CreateReplaceDescript or(); Для x=1 По ТаблицаЗамен.КоличествоСтрок() Цикл Replace.SearchString = ТаблицаЗамен.ПолучитьЗначение(x, 1); Replace.ReplaceString = ТаблицаЗамен.ПолучитьЗначение(x, 2); ТекстовыйПроцессор.ReplaceAll(Replace); КонецЦикла;
|