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