Форум вопросов и ответов

Форум вопросов и ответов (https://www.otvetnemail.ru/)
-   Новый архив 3 (https://www.otvetnemail.ru/novyj-arhiv-3-813/)
-   -   Печать на конверт в OpenOffice (https://www.otvetnemail.ru/novyj-arhiv-3-813/pechat-na-konvert-v-openoffice-301516/)

Guest 29.09.2011 22:15

Печать на конверт в OpenOffice
 
Есть код в 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); КонецЦикла;


Часовой пояс GMT, время: 10:09.


© www.otvetnemail.ru - Форум вопросов и ответов.