Заказы на доработку 1С (сервис удаленной работы)

Хранилище

База знаний
Неназначенных незавершенных заказов: 2, свеженьких 1
Бесплатные отчеты, обработки, конфигурации, внешние компоненты для 1С Статьи, описание работы, методики по работе с 1С

Здравствуйте, гость ( Вход | Зарегистрироваться )



> Как при выводе нестандартного отчета через макет задать параметры печати          
Svetas_2024 Подменю пользователя
сообщение 26.12.23, 21:52
Сообщение #1

Общительный
**
Группа: Пользователи
Сообщений: 48
Спасибо сказали: 0 раз
Рейтинг: 0

Добрый день, уважаемые форумчани. Прошу помощи
1С:Предприятие 8.3 (8.3.15.1869), "Управление производственным предприятием для Украины", редакция 1.3 (1.3.66.1) , формы обычные (не управляемые)

вопрос Как при выводе нестандартного отчета через макет,
задать:
1. разрывы листов - чтобы при достяжении границы- переходил на следующий лист, а не делился рисунок по палам (1 часть на 1 странице -2 часть на 2 страницы)
2. отступы страницы печати
3. повторение шапки на каждом листе при печати
4. возможность из кода изменять размер области секции
5. нумерацию листов;
6. двустороннею печать
7. отступ для переплёта


 ! 

Правила: 8
 


ТабДок = Новый ТабличныйДокумент;
ТабДок.Очистить();

Макет = ЭтотОбъект.ПолучитьМакет("МакетКаталог");

ОбластьШапка1= Макет.ПолучитьОбласть("ШапкаСтока|Шапка");
ОбластьШапка2= Макет.ПолучитьОбласть("ШапкаСтока|Параметры1");
ОбластьШапка3= Макет.ПолучитьОбласть("ШапкаСтока|Шапка2");
ОбластьШапка4= Макет.ПолучитьОбласть("ШапкаСтока|Параметры2");


ОбластьКартинка1= Макет.ПолучитьОбласть("СписокКартинка|Шапка");
ОбластьПараметры1= Макет.ПолучитьОбласть("СписокКартинка|Параметры1");
ОбластьКартинка2= Макет.ПолучитьОбласть("СписокКартинка|Шапка2");
ОбластьПараметры2= Макет.ПолучитьОбласть("СписокКартинка|Параметры2");

ОбластьШапка4.Параметры.Дата = ТекущаяДата();
ТабДок.Вывести(ОбластьШапка1);
ТабДок.Присоединить(ОбластьШапка2);
ТабДок.Присоединить(ОбластьШапка3);
ТабДок.Присоединить(ОбластьШапка4);


Для каждого строка из аа Цикл
ТабДок.Присоединить(ОбластьПараметры2);

конеццикла;
    
ТабДок.ОтображатьСетку = Ложь;
ТабДок.Защита = Истина;
ТабДок.ТолькоПросмотр = Истина;
ТабДок.ОриентацияСтраницы=ОриентацияСтраницы.Ландшафт;
ТабДок.ОтображатьЗаголовки = Ложь;
ТабДок.Вывести(ТабДок);
ТабДок.Показать();


Сообщение отредактировал Vofka - 28.12.23, 18:39

AnryMc Подменю пользователя
сообщение 27.12.23, 8:52
Сообщение #2

Оратор
Иконка группы
Группа: Местный
Сообщений: 331
Спасибо сказали: 96 раз
Рейтинг: 97.6

1) Для разрыва страниц можно создать область (1 строка) и в неё в макете вставить разрыв и когда надо её выводить
2) ТабДок.ПолеСверху = ...
3) ТабДок.ПовторятьПриПечатиСтроки
4) Недоперепонял
5) ТабДок.НижнийКолонтитул.Выводить = Истина;
В макете настроить колонититул с маской (Таблица - Настройка печати - Колонтитулы - сверху кнопочка номер (номера) страницы
или программно
ТабДок.НижнийКолонтитул.ТекстСлева = МойСчетчик;
6) ТабДок.ДвусторонняяПечать
7) ТабДок.ЧередованиеРасположенияСтраниц = ЧередованиеРасположенияСтраниц .ЗеркальноСлева

Не нашли ответа на свой вопрос?
Зарегистрируйтесь и задайте новый вопрос.


Ответить Новая тема
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

RSS Текстовая версия Сейчас: 20.04.24, 4:14
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!