Печать макета MS Word в любом документе с помощью БСП
Отзывы
Остальные комментарии
В избранное
Подписаться на ответы
Сортировка:
Древо развёрнутое
Свернуть все
Спасибо за материал!
Беспокоит один вопрос - использование областей в макете обязательно? Бывали случаи, когда макет Word нужно сформировать строго под фиксированный бланк (например вкладыш в диплом). Указание "{v8 Область.Преамбула}" сильно затрудняет эту задачу.
Беспокоит один вопрос - использование областей в макете обязательно? Бывали случаи, когда макет Word нужно сформировать строго под фиксированный бланк (например вкладыш в диплом). Указание "{v8 Область.Преамбула}" сильно затрудняет эту задачу.
(5) я делаю ВПФ, подскажите, пожалуйста. Если в идентификаторе объявляю несколько макетов(например,3), то при печати 2 по условию, получаю ошибку, что для 3 - не сформирована печатная форма.
Вот код, который у меня в процедуре печати:
Вот код, который у меня в процедуре печати:
Если Тогда
Если УправлениеПечатью.НужноПечататьМакет(КоллекцияПечатныхФорм, "ПФ_DOC_ПечатьДокументWordФК") Тогда
ПечатнаяФорма = УправлениеПечатью.СведенияОПечатнойФорме(КоллекцияПечатныхФорм, "ПФ_DOC_ПечатьДокументWordФК"); //Идентификатор формы в команде
Если ПечатнаяФорма <> Неопределено Тогда
ОфисныеДокументы = НапечататьАктСписанияФК(МассивОбъектов);
ПечатнаяФорма.ТабличныйДокумент = Новый ТабличныйДокумент;
ПечатнаяФорма.СинонимМакета = НСтр("ru = 'Печать документа Word'");
ПечатнаяФорма.ОфисныеДокументы = ОфисныеДокументы;
КонецЕсли;
КонецЕсли;
ИначеЕсли
Если УправлениеПечатью.НужноПечататьМакет(КоллекцияПечатныхФорм, "ПФ_DOC_ПечатьДокументWordОбычные") Тогда
ПечатнаяФорма1 = УправлениеПечатью.СведенияОПечатнойФорме(КоллекцияПечатныхФорм, "ПФ_DOC_ПечатьДокументWordОбычные"); //Идентификатор формы в команде
Если ПечатнаяФорма1 <> Неопределено Тогда
ОфисныеДокументы1 = НапечататьАктСписанияОбычные(МассивОбъектов);
ПечатнаяФорма1.ТабличныйДокумент = Новый ТабличныйДокумент;
ПечатнаяФорма1.СинонимМакета = НСтр("ru = 'Печать документа Word'");
ПечатнаяФорма1.ОфисныеДокументы = ОфисныеДокументы1;
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЦикла; Показать
(10) (11) Хотя
посмотрел по коду оказывается для того что бы вывести картинку в такой шаблон WORD достаточно получить ссылку на двоичные данные файла
СтруктураКартинки = ПрисоединенныеФайлы.ПолучитьДанныеФайла(ФаксимилеПодписи);
Картинка = СтруктураКартинки.СсылкаНаДвоичныеДанныеФайла;
ДанныеПодвала1Лист.Вставить("ФаксимилеПодписи",Картинка);
посмотрел по коду оказывается для того что бы вывести картинку в такой шаблон WORD достаточно получить ссылку на двоичные данные файла
СтруктураКартинки = ПрисоединенныеФайлы.ПолучитьДанныеФайла(ФаксимилеПодписи);
Картинка = СтруктураКартинки.СсылкаНаДвоичныеДанныеФайла;
ДанныеПодвала1Лист.Вставить("ФаксимилеПодписи",Картинка);
(12)
На БСП 3.1.7.190 валится в ошибку
Ошибка разбора XML% -[2,52]
Ошибка:
Namespace prefix wp on inline is not defined
Может у кого есть решение поделитесь.
СтруктураКартинки = ПрисоединенныеФайлы.ПолучитьДанныеФайла(ФаксимилеПодписи);
Картинка = СтруктураКартинки.СсылкаНаДвоичныеДанныеФайла;
ДанныеПодвала1Лист.Вставить("ФаксимилеПодписи",Картинка);
Картинка = СтруктураКартинки.СсылкаНаДвоичныеДанныеФайла;
ДанныеПодвала1Лист.Вставить("ФаксимилеПодписи",Картинка);
На БСП 3.1.7.190 валится в ошибку
Ошибка разбора XML% -[2,52]
Ошибка:
Namespace prefix wp on inline is not defined
Может у кого есть решение поделитесь.
(21)
Поправить описание областей - добавить колонтитулы
Поправить вывод - добавить вручную вывод
Поправить описание областей - добавить колонтитулы
Функция ОписаниеОбластейМакетаОфисногоДокумента()
ОписаниеОбластей = Новый Структура;
УправлениеПечатью.ДобавитьОписаниеОбласти(ОписаниеОбластей, "ОбластьШапка", "Общая");
УправлениеПечатью.ДобавитьОписаниеОбласти(ОписаниеОбластей, "Реквизиты", "Общая");
УправлениеПечатью.ДобавитьОписаниеОбласти(ОписаниеОбластей, "ВерхнийКолонтитул", "ВерхнийКолонтитул");
УправлениеПечатью.ДобавитьОписаниеОбласти(ОписаниеОбластей, "НижнийКолонтитул", "НижнийКолонтитул");
Возврат ОписаниеОбластей;
КонецФункции
ПоказатьПоправить вывод - добавить вручную вывод
Функция НапечататьСогласиеНаОбработкуПерсональныхДанныхСубъекта(ДокументСсылка, МакетИДанныеОбъекта, ИмяМакета)
// начало функции
//ВЫВОД ВЕРХНЕГО КОЛОНТИТУЛА
Область = УправлениеПечатьюКлиент.ОбластьМакета(Макет, Области[ИмяМакета]["ВерхнийКолонтитул"]);
УправлениеПечатьюКлиент.ПрисоединитьОбласть(ПечатнаяФорма, Область, Ложь);
//Вывод областей листа
Область = УправлениеПечатью.ОбластьМакета(Макет, Области[ИмяМакета]["НомерДата"]);
УправлениеПечатью.ПрисоединитьОбластьИЗаполнитьПараметры(ПечатнаяФорма, Область, ДанныеОбъекта, Ложь);
Область = УправлениеПечатью.ОбластьМакета(Макет, Области[ИмяМакета]["Преамбула"]);
УправлениеПечатью.ПрисоединитьОбластьИЗаполнитьПараметры(ПечатнаяФорма, Область, ДанныеОбъекта, Ложь);
//ВЫВОД НИЖНЕГО КОЛОНТИТУЛА
Область = УправлениеПечатьюКлиент.ОбластьМакета(Макет, Области[ИмяМакета]["НижнийКолонтитул"]);
УправлениеПечатьюКлиент.ПрисоединитьОбласть(ПечатнаяФорма, Область, Ложь);
//Код остального вывода
КонецПроцедуры
Показать