|
Колонтитулы БСП 8.3 | ☑ | ||
|---|---|---|---|---|
|
0
Nlck02
25.06.24
✎
20:55
|
Всем привет, подскажите по поводу выводу колонтитулов в печатную форму WORD c несколькими разделами. Мне надо чтоб у каждого раздела была своя нумерация, сделал макет, заполняю По БСП. Но у последнего раздела колонтитулы продолжают отсчет страниц предыдущего раздела. Т.е может идти даже так 4 стр из 3. Не знаю куда копать. Уже принудительно через COM объект выключал (Как в предыдущем разделе) LinkToPrevious = False. Оно убирает колонтитулы вообще у раздела.
Кусок кода печати: &НаКлиенте Процедура ПечататьДоговор(Команда) ИмяМакета = "ТрудовойДоговорСотрудник"; ТипМакета = "doc"; //МакетИДанныеОбъекта = УправлениеПечатьюВызовСервера.МакетыИДанныеОбъектовДляПечати(ЭтотОбъект, // ИмяМакета, // Сотрудник); //ДвоичныеДанныеМакетов = МакетИДанныеОбъекта.Макеты.ДвоичныеДанныеМакетов; //Секции = МакетИДанныеОбъекта.Макеты.ОписаниеСекций; Секции = ПолучитьОписаниеОбластей(); ДанныеОбъекта = ПолучитьДанные(Приказ); Попытка //Обработка = РеквизитФормыВЗначение("Объект"); ДвоичныеДанныеМакет = ПолучитьМакетНаСервере(ИмяМакета); ПечатнаяФорма = УправлениеПечатьюКлиент.ИнициализироватьПечатнуюФорму(ТипМакета); Макет = УправлениеПечатьюКлиент.ИнициализироватьМакетОфисногоДокумента(ДвоичныеДанныеМакет, ТипМакета); Область = УправлениеПечатьюКлиент.ОбластьМакета(Макет, Секции.Заголовок); УправлениеПечатьюКлиент.ПрисоединитьОбластьИЗаполнитьПараметры(ПечатнаяФорма, Область, ДанныеОбъекта, Истина); ОбластьКолонтитула = УправлениеПечатьюКлиент.ОбластьМакета(Макет, Секции.НижнийКолонтитул); УправлениеПечатьюКлиент.ПрисоединитьОбластьИЗаполнитьПараметры(ПечатнаяФорма, ОбластьКолонтитула, ДанныеОбъекта, Истина); УправлениеПечатьюКлиент.ПоказатьДокумент(ПечатнаяФорма); Исключение ОбщегоНазначенияКлиентСервер.СообщитьПользователю(КраткоеПредставлениеОшибки(ИнформацияОбОшибке())); УправлениеПечатьюКлиент.ОчиститьСсылки(ПечатнаяФорма); УправлениеПечатьюКлиент.ОчиститьСсылки(Макет); //Возврат Ложь; КонецПопытки; УправлениеПечатьюКлиент.ОчиститьСсылки(ПечатнаяФорма, Ложь); УправлениеПечатьюКлиент.ОчиститьСсылки(Макет); Состояние(НСтр("ru = 'Формирование печатных форм завершено'")); КонецПроцедуры Может кто сталкивался, Подскажет куда копать |
| Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |