Имя: Пароль:
1C
 
Колонтитулы БСП 8.3
0 Nlck02
 
25.06.24
20:55
Всем привет, подскажите по поводу выводу колонтитулов в печатную форму WORD c несколькими разделами. Мне надо чтоб у каждого раздела была своя нумерация, сделал макет, заполняю По БСП. Но у последнего раздела колонтитулы продолжают отсчет страниц предыдущего раздела. Т.е может идти даже так 4 стр из  3. Не знаю куда копать. Уже принудительно через COM объект выключал (Как в предыдущем разделе) LinkToPrevious = False. Оно убирает колонтитулы вообще у раздела.

Кусок кода печати:


&НаКлиенте
Процедура ПечататьДоговор(Команда)
    ИмяМакета = "ТрудовойДоговорСотрудник";
    ТипМакета = "doc";
    
    //МакетИДанныеОбъекта = УправлениеПечатьюВызовСервера.МакетыИДанныеОбъектовДляПечати(ЭтотОбъект,
    //    ИмяМакета,
    //    Сотрудник);
    
    //ДвоичныеДанныеМакетов = МакетИДанныеОбъекта.Макеты.ДвоичныеДанныеМакетов;
    
    //Секции = МакетИДанныеОбъекта.Макеты.ОписаниеСекций;
    
    Секции = ПолучитьОписаниеОбластей();
    ДанныеОбъекта = ПолучитьДанные(Приказ);
        
    Попытка
        //Обработка =  РеквизитФормыВЗначение("Объект");
        ДвоичныеДанныеМакет = ПолучитьМакетНаСервере(ИмяМакета);

        ПечатнаяФорма = УправлениеПечатьюКлиент.ИнициализироватьПечатнуюФорму(ТипМакета);
        Макет = УправлениеПечатьюКлиент.ИнициализироватьМакетОфисногоДокумента(ДвоичныеДанныеМакет, ТипМакета);
        
        Область = УправлениеПечатьюКлиент.ОбластьМакета(Макет, Секции.Заголовок);
        УправлениеПечатьюКлиент.ПрисоединитьОбластьИЗаполнитьПараметры(ПечатнаяФорма, Область, ДанныеОбъекта, Истина);
        
        
        ОбластьКолонтитула = УправлениеПечатьюКлиент.ОбластьМакета(Макет, Секции.НижнийКолонтитул);        
        УправлениеПечатьюКлиент.ПрисоединитьОбластьИЗаполнитьПараметры(ПечатнаяФорма, ОбластьКолонтитула, ДанныеОбъекта, Истина);
    
        УправлениеПечатьюКлиент.ПоказатьДокумент(ПечатнаяФорма);
        
         Исключение
        
        ОбщегоНазначенияКлиентСервер.СообщитьПользователю(КраткоеПредставлениеОшибки(ИнформацияОбОшибке()));
        
        УправлениеПечатьюКлиент.ОчиститьСсылки(ПечатнаяФорма);
        УправлениеПечатьюКлиент.ОчиститьСсылки(Макет);
        
        //Возврат Ложь;
        
    КонецПопытки;
    
    УправлениеПечатьюКлиент.ОчиститьСсылки(ПечатнаяФорма, Ложь);
    УправлениеПечатьюКлиент.ОчиститьСсылки(Макет);
    
    
    
    Состояние(НСтр("ru = 'Формирование печатных форм завершено'"));
КонецПроцедуры



Может кто сталкивался, Подскажет куда копать
Глупец, лишенный способности посмеяться над собой вместе с другими, не сможет долго выносить программирование. Фредерик Брукс-младший