Стояла задача сформировать печатную форму по шаблону Word таким образом, чтобы колонтитулы были на всех страницах, кроме последней.
Потратил много времени, полной информации нигде не нашел.
Для начала необходимо, чтобы разрыв разделов вообще был выведен в итоговый документ.
В шаблоне разрыв следует поместить между двумя областями
В последнем параметре выводе обоих областей следует указать Истина.
Область = УправлениеПечатью.ОбластьМакета(Макет, ОбластьОбщая);
УправлениеПечатью.ПрисоединитьОбластьИЗаполнитьПараметры(ПечатнаяФормаДокумента, Область, МассивДанныхЗаполнения, Истина);
Область = УправлениеПечатью.ОбластьМакета(Макет, ОбластьРеквизиты);
УправлениеПечатью.ПрисоединитьОбластьИЗаполнитьПараметры(ПечатнаяФормаДокумента, Область, МассивДанныхЗаполнения, Истина);
В процедуре УправлениеПечатью внести изменения - добавить параметр НомерРаздела, и пробросить его в процедуру ПолучитьОбластьНижнегоКолонтитула
Функция ОбластьМакета(СсылкаНаМакет, ОписаниеОбласти, НомерРаздела = 1) Экспорт
Область = Неопределено;
Если ОписаниеОбласти.ТипОбласти = "ВерхнийКолонтитул" Или ОписаниеОбласти.ТипОбласти = "ВерхнийЧетныйКолонтитул"
Или ОписаниеОбласти.ТипОбласти = "ВерхнийТитульныйКолонтитул" Тогда
Область = УправлениеПечатьюСлужебный.ПолучитьОбластьВерхнегоКолонтитула(СсылкаНаМакет, ОписаниеОбласти.ИмяОбласти);
ИначеЕсли ОписаниеОбласти.ТипОбласти = "НижнийКолонтитул" Или ОписаниеОбласти.ТипОбласти = "НижнийЧетныйКолонтитул"
Или ОписаниеОбласти.ТипОбласти = "НижнийТитульныйКолонтитул" Тогда
Область = УправлениеПечатьюСлужебный.ПолучитьОбластьНижнегоКолонтитула(СсылкаНаМакет, ОписаниеОбласти.ИмяОбласти, НомерРаздела);
ИначеЕсли ОписаниеОбласти.ТипОбласти = "Общая"
Или ОписаниеОбласти.ТипОбласти = "СтрокаТаблицы"
....
Итого код печати
ОбластьОбщая = Новый Структура;
ОбластьОбщая.Вставить("ИмяОбласти", "Общая");
ОбластьОбщая.Вставить("ТипОбласти", "Общая");
ОбластьРеквизиты = Новый Структура;
ОбластьРеквизиты.Вставить("ИмяОбласти", "Реквизиты");
ОбластьРеквизиты.Вставить("ТипОбласти", "Общая");
ОбластьНижнийКолонтитул = Новый Структура;
ОбластьНижнийКолонтитул.Вставить("ИмяОбласти", "НижнийКолонтитул");
ОбластьНижнийКолонтитул.Вставить("ТипОбласти", "НижнийКолонтитул");
ОбластьНижнийКолонтитул.Вставить("НомерРаздела", 1);
ОбластьНижнийКолонтитул2 = Новый Структура;
ОбластьНижнийКолонтитул2.Вставить("ИмяОбласти", "НижнийКолонтитул");
ОбластьНижнийКолонтитул2.Вставить("ТипОбласти", "НижнийКолонтитул");
ОбластьНижнийКолонтитул2.Вставить("НомерРаздела", 2);
Область = УправлениеПечатью.ОбластьМакета(Макет, ОбластьОбщая);
УправлениеПечатью.ПрисоединитьОбластьИЗаполнитьПараметры(ПечатнаяФормаДокумента, Область, МассивДанныхЗаполнения, Истина);
Область = УправлениеПечатью.ОбластьМакета(Макет, ОбластьРеквизиты);
УправлениеПечатью.ПрисоединитьОбластьИЗаполнитьПараметры(ПечатнаяФормаДокумента, Область, МассивДанныхЗаполнения, Истина);
Область = УправлениеПечатью.ОбластьМакета(Макет, ОбластьНижнийКолонтитул);
УправлениеПечатью.ПрисоединитьОбластьИЗаполнитьПараметры(ПечатнаяФормаДокумента, Область, МассивДанныхЗаполнения);
Область = УправлениеПечатью.ОбластьМакета(Макет, ОбластьНижнийКолонтитул2, 2);
УправлениеПечатью.ПрисоединитьОбластьИЗаполнитьПараметры(ПечатнаяФормаДокумента, Область, МассивДанныхЗаполнения);
Вступайте в нашу телеграмм-группу Инфостарт
