Выводить заголовок таблицы отчета на каждой странице
По теме из базы знаний
- Универсальный механизм печати подписей согласующих лиц в отчетах конфигурации
- Анализ сложных запросов с временными таблицами-2. Не такой мудреный.
- 3 в 1: отчеты 1С в Word: динамические таблицы, разная ориентация страниц, объединение тысячи отчетов в один файл word
- Шаблон отчета на СКД для обычных и управляемых форм
- Разрыв страницы в СКД. Легко!
Найденные решения
Спасибо всем за советы, пока удалось обойтись следующей доработкой, но хотелось бы уйти от четкого определения с какой строки повторять, так как до шапки таблицы может быть, в принципе, разное количество строк:
&После("ПослеВыводаРезультата")
Процедура АСП_ОСВ_ПослеВыводаРезультата(Результат)
Если Результат.Области.Найти("Заголовок") <> Неопределено Тогда
Результат.ПовторятьПриПечатиСтроки = Результат.Область(5,, Результат.ФиксацияСверху);
Иначе
Результат.ФиксацияСверху = ВысотаШапки;
КонецЕсли;
КонецПроцедурыОстальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(1)Сделать можно.
0 - сделать активным элементом табличный документ
1 - включить видимость заголовков - - меню формы - Таблица - Вид - Отображать заголовки.
2 - включить редактирование таблицы - меню формы - Таблица - Вид - Редактирование
3 - выделить строки шапки, далее - меню формы - Таблица - Настройка печати - Повторять на каждой странице.
Но после закрытия отчета и последующего открытия, эти действия надо будет заново проводить.
0 - сделать активным элементом табличный документ
1 - включить видимость заголовков - - меню формы - Таблица - Вид - Отображать заголовки.
2 - включить редактирование таблицы - меню формы - Таблица - Вид - Редактирование
3 - выделить строки шапки, далее - меню формы - Таблица - Настройка печати - Повторять на каждой странице.
Но после закрытия отчета и последующего открытия, эти действия надо будет заново проводить.
Прикрепленные файлы:
(1) Если в цикле вывод в Вашем макете, по Таблице то примерно так.......
Область1 = Макет.ПолучитьОбласть("Область1");
ТабДокумент.Вывести(Область1);
НомерПункта=0;//////////////////////////////////////////////////////////// ////////// обработаем Табличную часть
Для каждого ДляВывода Из Результат Цикл
НомерПункта = НомерПункта + 1;
ОбластьХ.Параметры.НомерПункта = НомерПункта;
ОбластьХ.Параметры.СотрудникСсылка = ДляВывода.СотрудникСсылка ;
ОбластьХ.Параметры.Должность = ДляВывода.Должность ;
Если НЕ ТабДокумент.ПроверитьВывод(ОбластьХ) Тогда //Если не хватает места выводим снова шапку таблицы.
ТабДокумент.ВывестиГоризонтальныйРазделительСтраниц();
ТабДокумент.ПовторятьПриПечатиСтроки = ТабДокумент.Вывести(Область1);
КонецЕсли;
ТабДокумент.Вывести(ОбластьХ);
КонецЦикла; ПоказатьТабДок.ПовторятьПриПечатиСтроки = ТабДок.Область(5, , 10);
Если не СКД, то можете взять мою функцию -
Там универсально, повтор шапки, добавление произвольных колонтитуов, нумерация страниц...
Там универсально, повтор шапки, добавление произвольных колонтитуов, нумерация страниц...
(13) Спасибо за совет! Обязательно посмотрю, пока удалось обойтись следующей доработкой с помощью предыдущего вашего сообщения:
&После("ПослеВыводаРезультата")
Процедура АСП_ОСВ_ПослеВыводаРезультата(Результат)
Если Результат.Области.Найти("Заголовок") <> Неопределено Тогда
Результат.ПовторятьПриПечатиСтроки = Результат.Область(5,, Результат.ФиксацияСверху);
Иначе
Результат.ФиксацияСверху = ВысотаШапки;
КонецЕсли;
КонецПроцедуры
&После("ПослеВыводаРезультата")
Процедура АСП_ОСВ_ПослеВыводаРезультата(Результат)
Если Результат.Области.Найти("Заголовок") <> Неопределено Тогда
Результат.ПовторятьПриПечатиСтроки = Результат.Область(5,, Результат.ФиксацияСверху);
Иначе
Результат.ФиксацияСверху = ВысотаШапки;
КонецЕсли;
КонецПроцедуры
Спасибо всем за советы, пока удалось обойтись следующей доработкой, но хотелось бы уйти от четкого определения с какой строки повторять, так как до шапки таблицы может быть, в принципе, разное количество строк:
&После("ПослеВыводаРезультата")
Процедура АСП_ОСВ_ПослеВыводаРезультата(Результат)
Если Результат.Области.Найти("Заголовок") <> Неопределено Тогда
Результат.ПовторятьПриПечатиСтроки = Результат.Область(5,, Результат.ФиксацияСверху);
Иначе
Результат.ФиксацияСверху = ВысотаШапки;
КонецЕсли;
КонецПроцедуры
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот
