Добрый день, уважаемые форумчани. Прошу помощи
1С:Предприятие 8.3 (8.3.15.1869), "Управление производственным предприятием для Украины", редакция 1.3 (1.3.66.1) , формы обычные (не управляемые)
вопрос
был отчет каталог номенклатуры, который работал, но пользователю не подходил , так как пользователь захотел сам выбирать перечень характеристик для отображения в каталоге, тем самым уменьшая или увеличивая размер секции -строки каталога (т.е. чем меньше характеристик отображается по номенклатуре с права от картинки номенклатуры, тем больше строк каталога (вместе с картинкой) вмещается на лист)
https://pro1c.org.ua/redirect.php?https://postimg.cc/NKfmR5XD
согласно пожеланиям пользователя получается
https://pro1c.org.ua/redirect.php?https://postimages.org/
но такой макет не работает.
проблемма не виден параметр ИмяДопПоля и ЗначениеДопПоля
ОбластьПараметр1.Параметры.ИмяДопПоля=свойства_мас.наименование;
ОбластьПараметр1.Параметры.ЗначениеДопПоля=свойства_мас.значение;
ТабДок = Новый ТабличныйДокумент;
ТабДок.Очистить();
Макет = ЭтотОбъект.ПолучитьМакет("МакетКаталогПоЭлементам");
ОбластьШапка1= Макет.ПолучитьОбласть("ШапкаСтока|Шапка1");
ОбластьШапка2= Макет.ПолучитьОбласть("ШапкаСтока|Параметры1");
ОбластьШапка3= Макет.ПолучитьОбласть("ШапкаСтока|Шапка2");
ОбластьШапка4= Макет.ПолучитьОбласть("ШапкаСтока|Параметры2");
ОбластьКартинка11= Макет.ПолучитьОбласть("параметр|Шапка1");
ОбластьКартинка1= Макет.ПолучитьОбласть("СписокКартинка|Шапка1");
ОбластьПараметр1= Макет.ПолучитьОбласть("параметр|Параметры1");
ОбластьКартинка22= Макет.ПолучитьОбласть("параметр|Шапка2");
ОбластьКартинка2= Макет.ПолучитьОбласть("СписокКартинка|Шапка2");
ОбластьПараметр2= Макет.ПолучитьОбласть("параметр|Параметры2");
ОбластьШапка4.Параметры.Дата = ТекущаяДата();
ТабДок.Вывести(ОбластьШапка1);
ТабДок.Присоединить(ОбластьШапка2);
ТабДок.Присоединить(ОбластьШапка3);
ТабДок.Присоединить(ОбластьШапка4);
Для каждого строка из аа Цикл
Для каждого свойства_мас из строка[0].свойства Цикл //1 єлемент левый
Если свойства_мас.выбор=Истина Тогда
ОбластьПараметр1.Параметры.ИмяДопПоля=свойства_мас.наименование;
ОбластьПараметр1.Параметры.ЗначениеДопПоля=свойства_мас.значение;
ТабДок.Вывести(ОбластьПараметр1);
КонецЕсли;
конеццикла;
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
|ХранилищеДополнительнойИнформации.Ссылка КАК Ссылка,
|ХранилищеДополнительнойИнформации.ВерсияДанных КАК ВерсияДанных,
|ХранилищеДополнительнойИнформации.ПометкаУдаления КАК ПометкаУдаления,
|ХранилищеДополнительнойИнформации.Наименование КАК Наименование,
|ХранилищеДополнительнойИнформации.ВидДанных КАК ВидДанных,
|ХранилищеДополнительнойИнформации.ИмяФайла КАК ИмяФайла,
|ХранилищеДополнительнойИнформации.Объект КАК Объект,
|ХранилищеДополнительнойИнформации.Хранилище КАК Хранилище,
|ХранилищеДополнительнойИнформации.ТекстФайла КАК ТекстФайла,
|ХранилищеДополнительнойИнформации.Предопределенный КАК Предопределенный,
|ХранилищеДополнительнойИнформации.ИмяПредопределенныхДанных КАК ИмяПредопределенныхДанных
|ИЗ
|Справочник.ХранилищеДополнительнойИнформации КАК ХранилищеДополнительнойИнформации
|ГДЕ
|ХранилищеДополнительнойИнформации.Ссылка = &ИмяФайла";
Запрос.УстановитьПараметр("ИмяФайла", строка[0].сылка_картинка);
Результат = Запрос.Выполнить();
Выборка = Результат.Выбрать();
Пока Выборка.Следующий() Цикл
Изображение1 = Выборка.Хранилище.Получить();
КонецЦикла;
ОбластьКартинка1.Рисунки.Картинка1.Картинка = Изображение1;
ТабДок.Присоединить(ОбластьКартинка1);
Для каждого свойства_мас из строка[1].свойства Цикл //1 єлемент правій
Если свойства_мас.выбор=Истина Тогда
ОбластьПараметр1.Параметры.ИмяДопПоля=свойства_мас.наименование;
ОбластьПараметр1.Параметры.ЗначениеДопПоля=свойства_мас.значение;
ТабДок.Присоединить(ОбластьПараметр2);
КонецЕсли;
конеццикла;
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
|ХранилищеДополнительнойИнформации.Ссылка КАК Ссылка,
|ХранилищеДополнительнойИнформации.ВерсияДанных КАК ВерсияДанных,
|ХранилищеДополнительнойИнформации.ПометкаУдаления КАК ПометкаУдаления,
|ХранилищеДополнительнойИнформации.Наименование КАК Наименование,
|ХранилищеДополнительнойИнформации.ВидДанных КАК ВидДанных,
|ХранилищеДополнительнойИнформации.ИмяФайла КАК ИмяФайла,
|ХранилищеДополнительнойИнформации.Объект КАК Объект,
|ХранилищеДополнительнойИнформации.Хранилище КАК Хранилище,
|ХранилищеДополнительнойИнформации.ТекстФайла КАК ТекстФайла,
|ХранилищеДополнительнойИнформации.Предопределенный КАК Предопределенный,
|ХранилищеДополнительнойИнформации.ИмяПредопределенныхДанных КАК ИмяПредопределенныхДанных
|ИЗ
|Справочник.ХранилищеДополнительнойИнформации КАК ХранилищеДополнительнойИнформации
|ГДЕ
|ХранилищеДополнительнойИнформации.Ссылка = &ИмяФайла";
Запрос.УстановитьПараметр("ИмяФайла", строка[1].сылка_картинка);
Результат = Запрос.Выполнить();
Выборка = Результат.Выбрать();
Пока Выборка.Следующий() Цикл
Изображение2 = Выборка.Хранилище.Получить();
КонецЦикла;
ОбластьКартинка2.Рисунки.Картинка2.Картинка = Изображение2;
ТабДок.Присоединить(ОбластьКартинка2);
конеццикла;
ТабДок.ОтображатьСетку = Ложь;
ТабДок.Защита = Истина;
ТабДок.ТолькоПросмотр = Истина;
ТабДок.ОриентацияСтраницы=ОриентацияСтраницы.Ландшафт;
ТабДок.ОтображатьЗаголовки = Ложь;
ТабДок.Вывести(ТабДок);
ТабДок.Показать();
Svetas_2024 @ Сегодня, 13:02
,
Vofka - можете хоть что-то подсказать. Спасибо.
sava1 @ Сегодня, 18:19
,
не знаю как совместить в макете область картинки , которая содержит контейнер картинки, и построчный вывод параметров (число которых задаёт пользователь). я понимаю что макет на картинке 2 не верный, но как его можно было бы сделать рабочим?
проблемма не виден параметр ИмяДопПоля и ЗначениеДопПоля
Svetas_2024 @ Сегодня, 18:26
,
выводим строки
потом область, где должна быть картинка - объединяем (от первой строки до последней)
рисунок - раздвигаем на полученную область
эти все действия - программно
Для сч =1 по количествоСвойств
// виводим 1ю секцию
// присоединяем вторую
// заполняем параметры во 2й секции
......
конеццикла
// получаем координаты 1й секции верх, низ
// получаем область, где будет лежать рисунок (1я секция, верх, низ)
// полученная область.Объединить - получаем неприрывную область
// вычисляем высоту этой области в пикселях
// высоту рисунка делаем чуть меньше высоты области
// задаем параметры масштабирования рисунка
Vofka
а как
можно получить координаты области? и "полученная область.Объединить"
Вывести, присоединить возвращает область
У лбласти есть верх, низ, право,лево
Макет = ЭтотОбъект.ПолучитьМакет("МакетКаталогПоЭлементам");
ОбластьКартинка11= Макет.ПолучитьОбласть("параметр|Шапка1");
ОбластьПараметр1= Макет.ПолучитьОбласть("параметр|Параметры1");
ОбластьКартинка22= Макет.ПолучитьОбласть("параметр|Шапка2");
ОбластьПараметр2= Макет.ПолучитьОбласть("параметр|Параметры2");
ОбластьШапка4.Параметры.Дата = ТекущаяДата();
ТабДок.Вывести(ОбластьШапка1);
ТабДок.Присоединить(ОбластьШапка2);
........
Для каждого строка из аа Цикл //цикл по строкам массива элементов каталога
Запрос = ""
....
Запрос.УстановитьПараметр("ИмяФайла", строка[0].сылка_картинка);
Результат = Запрос.Выполнить();
Выборка = Результат.Выбрать();
Пока Выборка.Следующий() Цикл
Изображение1 = Выборка.Хранилище.Получить();
КонецЦикла;
ОбластьКартинка11.Рисунки.Картинка1.Картинка = Изображение1;
Запрос = ""
....
Запрос.УстановитьПараметр("ИмяФайла", строка[1].сылка_картинка);
Результат = Запрос.Выполнить();
Выборка = Результат.Выбрать();
Пока Выборка.Следующий() Цикл
Изображение2 = Выборка.Хранилище.Получить();
КонецЦикла;
ОбластьКартинка22.Рисунки.Картинка2.Картинка = Изображение2;
Для каждого свойства_мас из строка[0].свойства Цикл // элемент левый каталога
Если свойства_мас.выбор=Истина Тогда
ОбластьПараметр1.Параметры.ИмяДопПоля=свойства_мас.наименование;
ОбластьПараметр1.Параметры.ЗначениеДопПоля=свойства_мас.значение;
ТабДок.Вывести(ОбластьПараметр1);
ТабДок.Присоединить(ОбластьКартинка11);
КонецЕсли;
конеццикла;
Для каждого свойства_мас из строка[1].свойства Цикл // элемент правый каталога
Если свойства_мас.выбор=Истина Тогда
ОбластьПараметр2.Параметры.ИмяДопПоля=свойства_мас.наименование;
ОбластьПараметр2.Параметры.ЗначениеДопПоля=свойства_мас.значение;
ТабДок.Присоединить(ОбластьПараметр2);
ТабДок.Присоединить(ОбластьКартинка22);
КонецЕсли;
конеццикла;
конеццикла;
ТабДок.Вывести(ТабДок);
ТабДок.Показать();
Svetas_2024 @ Вчера, 20:58
,
как после объединения областей обратиться к картинке? Объединённая область по координатам не видит параметра Рисунки. Хотя до объединения каждая область выводила Рисунки
ТабДок.Вывести(ОбластьШапка1);
НомерСтроки=5;
Для каждого строка из аа Цикл
Запрос = Новый Запрос;
Запрос.Текст =;
Запрос.УстановитьПараметр("ИмяФайла", строка[0].сылка_картинка);
Результат = Запрос.Выполнить();
Выборка = Результат.Выбрать();
Пока Выборка.Следующий() Цикл
Изображение1 = Выборка.Хранилище.Получить();
КонецЦикла;
ОбластьКартинка11.Рисунки.Картинка1.Картинка = Изображение1;
Запрос = Новый Запрос;
Запрос.Текст ="";
Запрос.УстановитьПараметр("ИмяФайла", строка[1].сылка_картинка);
Результат = Запрос.Выполнить();
Выборка = Результат.Выбрать();
Пока Выборка.Следующий() Цикл
Изображение2 = Выборка.Хранилище.Получить();
КонецЦикла;
ОбластьКартинка22.Рисунки.Картинка2.Картинка = Изображение2;
Для i = 1 По строка[0].свойства.Количество() Цикл
если строка[0].свойства[i-1].выбор=Истина Тогда
ОбластьПараметр1.Параметры.ИмяДопПоля=строка[0].свойства[i-1].наименование;
ОбластьПараметр1.Параметры.ЗначениеДопПоля=строка[0].свойства[i-1].значение;
ТабДок.Вывести(ОбластьПараметр1);
ТабДок.Присоединить(ОбластьКартинка11);
ОбластьПараметр2.Параметры.ИмяДопПоля=строка[1].свойства[i-1].наименование;
ОбластьПараметр2.Параметры.ЗначениеДопПоля=строка[1].свойства[i-1].значение;
ТабДок.Присоединить(ОбластьПараметр2);
ТабДок.Присоединить(ОбластьКартинка22);
конецесли;
КонецЦикла;
НомерСтроки_н=НомерСтроки;
НомерСтроки=НомерСтроки+строка[0].свойства.Количество();
НомерСтроки_к=НомерСтроки;
ОбластьКартинка01 = ТабДок.Область(НомерСтроки_н,3,НомерСтроки_к,3);
ОбластьКартинка01.Объединить();
ОбластьКартинка1= ОбластьКартинка01;
ОбластьКартинка1.Рисунки.Картинка1.Картинка = Изображение1;
ОбластьКартинка02 = ТабДок.Область(НомерСтроки_н,6,НомерСтроки_к,6);
ОбластьКартинка02.Объединить();
ОбластьКартинка2= ОбластьКартинка02;
ОбластьКартинка2.Рисунки.Картинка2.Картинка = Изображение2;
конеццикла;
ТабДок.Вывести(ТабДок);
ТабДок.Показать();
Svetas_2024 @ Сегодня, 10:07
,
вроде получилось
i=0;
Для i = 1 По строка[0].свойства.Количество() Цикл
если строка[0].свойства[i-1].выбор=Истина Тогда
ОбластьПараметр1.Параметры.ИмяДопПоля=строка[0].свойства[i-1].наименование;
ТабДок.Область(5+(i-1),3).ШиринаКолонки = ШиринаРисунка;
ТабДок.Область(5+(i-1),3).Шрифт=Новый Шрифт("Arial",РазШрифта,Ложь,Ложь,Ложь,Ложь); //имя,размер,полужирный,наклонный,подчеркивание,зачеркивание
ТабДок.Область(5+(i-1),2).ШиринаКолонки =ШиринаКол;
ТабДок.Область(5+(i-1),2).Шрифт=Новый Шрифт("Arial",РазШрифта,Ложь,Ложь,Ложь,Ложь);
ТабДок.Область(5+(i-1),1).ШиринаКолонки = ШиринаКол;
ТабДок.Область(5+(i-1),1).Шрифт=Новый Шрифт("Arial",РазШрифта,Ложь,Ложь,Ложь,Ложь);
ТабДок.Область(5+(i-1),1).ВысотаСтроки=ВысотаСтр;
ТабДок.Область(5+(i-1),2).ВысотаСтроки=ВысотаСтр;
ОбластьПараметр1.Параметры.ЗначениеДопПоля=строка[0].свойства[i-1].значение;
ТабДок.Вывести(ОбластьПараметр1);
ТабДок.Присоединить(ОбластьКартинка11);
ОбластьПараметр2.Параметры.ИмяДопПоля=строка[1].свойства[i-1].наименование;
ОбластьПараметр2.Параметры.ЗначениеДопПоля=строка[1].свойства[i-1].значение;
ТабДок.Область(5+(i-1),4).ВысотаСтроки=ВысотаСтр;
ТабДок.Область(5+(i-1),5).ВысотаСтроки=ВысотаСтр;
ТабДок.Область(5+(i-1),4).ШиринаКолонки =ШиринаКол;
ТабДок.Область(5+(i-1),4).Шрифт=Новый Шрифт("Arial",РазШрифта,Ложь,Ложь,Ложь,Ложь);
ТабДок.Область(5+(i-1),5).ШиринаКолонки =ШиринаКол;
ТабДок.Область(5+(i-1),5).Шрифт=Новый Шрифт("Arial",РазШрифта,Ложь,Ложь,Ложь,Ложь);
ТабДок.Область(5+(i-1),6).ШиринаКолонки = ШиринаРисунка;
ТабДок.Область(5+(i-1),6).Шрифт=Новый Шрифт("Arial",РазШрифта,Ложь,Ложь,Ложь,Ложь);
ТабДок.Присоединить(ОбластьПараметр2);
ТабДок.Присоединить(ОбластьКартинка22);
конецесли;
КонецЦикла;
НомерСтроки_н=НомерСтроки;
НомерСтроки=НомерСтроки+строка[0].свойства.Количество();
НомерСтроки_к=НомерСтроки;
ОбластьКартинка01 = ТабДок.Область(НомерСтроки_н+1,3,НомерСтроки_к,3);
ОбластьКартинка01.Объединить();
Линия = Новый Линия(ТипЛинииЯчейкиТабличногоДокумента.Сплошная, 1);
ОбластьКарточки1 =ТабДок.Область(НомерСтроки_н+1,1,НомерСтроки_к,3);
ОбластьКарточки1.Обвести(Линия, Линия, Линия, Линия);
Рисунок1 = ТабДок.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
Рисунок1.Картинка = Изображение1;
Рисунок1.Расположить(ОбластьКартинка01);
если Рисунок1.Высота>ВысотаРисунка тогда Рисунок1.Высота=ВысотаРисунка; конецесли;
если Рисунок1.Ширина>ШиринаРисунка тогда Рисунок1.Ширина=ШиринаРисунка; конецесли;
ОбластьКартинка02 = ТабДок.Область(НомерСтроки_н+1,6,НомерСтроки_к,6);
ОбластьКартинка02.Объединить();
Линия = Новый Линия(ТипЛинииЯчейкиТабличногоДокумента.Сплошная, 1);
ОбластьКарточки2 =ТабДок.Область(НомерСтроки_н+1,4,НомерСтроки_к,6);
ОбластьКарточки2.Обвести(Линия, Линия, Линия, Линия);
Рисунок2 = ТабДок.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
Рисунок2.Картинка = Изображение2;
Рисунок2.Расположить(ОбластьКартинка02);
если Рисунок2.Высота>ВысотаРисунка тогда Рисунок2.Высота=ВысотаРисунка; конецесли;
если Рисунок2.Ширина>ШиринаРисунка тогда Рисунок2.Ширина=ШиринаРисунка; конецесли;
конеццикла;
Если Не ТабДок.ПроверитьВывод(МассивОбластей) Тогда
а то рисунок на стыке страниц разрывается на части... Заранее спасибо.
в цикле вывода строк - после формирования выводимой области, перед КонецЦикла
sava1 @ Сегодня, 8:55
,
но потом во время объединения рисунок залазит на шапку увеличивая свои размеры, а строки всё равно разбиваются...
всю область надо проверять (объединенную), а не каждую строку
sava1 @ Сегодня, 10:13
,
несколько строк зависает и так на каждом листе можете подсказать, пожалуйста , где ошибка
НомерСтроки=5;
ШапкаСтрока= 3;
СчетчикШапки=0;
Для каждого строка из аа Цикл
i=0;
Для i = 1 По строка[0].свойства.Количество() Цикл
если строка[0].свойства[i-1].выбор=Истина Тогда
ОбластьПараметр1.Параметры.ИмяДопПоля=строка[0].свойства[i-1].наименование;
ТабДок.Область(5+(i-1),3).ШиринаКолонки = ШиринаРисунка;
ТабДок.Область(5+(i-1),3).Шрифт=Новый Шрифт("Arial",РазШрифта,Ложь,Ложь,Ложь,Ложь); //имя,размер,полужирный,наклонный,подчеркивание,зачеркивание
ТабДок.Область(5+(i-1),2).ШиринаКолонки =ШиринаКол;
ТабДок.Область(5+(i-1),2).Шрифт=Новый Шрифт("Arial",РазШрифта,Ложь,Ложь,Ложь,Ложь);
ТабДок.Область(5+(i-1),1).ШиринаКолонки = ШиринаКол;
ТабДок.Область(5+(i-1),1).Шрифт=Новый Шрифт("Arial",РазШрифта,Ложь,Ложь,Ложь,Ложь);
ТабДок.Область(5+(i-1),1).ВысотаСтроки=ВысотаСтр;
ТабДок.Область(5+(i-1),2).ВысотаСтроки=ВысотаСтр;
ОбластьПараметр1.Параметры.ЗначениеДопПоля=строка[0].свойства[i-1].значение;
ОбластьПараметр2.Параметры.ИмяДопПоля=строка[1].свойства[i-1].наименование;
ОбластьПараметр2.Параметры.ЗначениеДопПоля=строка[1].свойства[i-1].значение;
ТабДок.Область(5+(i-1),4).ВысотаСтроки=ВысотаСтр;
ТабДок.Область(5+(i-1),5).ВысотаСтроки=ВысотаСтр;
ТабДок.Область(5+(i-1),4).ШиринаКолонки =ШиринаКол;
ТабДок.Область(5+(i-1),4).Шрифт=Новый Шрифт("Arial",РазШрифта,Ложь,Ложь,Ложь,Ложь);
ТабДок.Область(5+(i-1),5).ШиринаКолонки =ШиринаКол;
ТабДок.Область(5+(i-1),5).Шрифт=Новый Шрифт("Arial",РазШрифта,Ложь,Ложь,Ложь,Ложь);
ТабДок.Область(5+(i-1),6).ШиринаКолонки = ШиринаРисунка;
ТабДок.Область(5+(i-1),6).Шрифт=Новый Шрифт("Arial",РазШрифта,Ложь,Ложь,Ложь,Ложь);
ТабДок.Вывести(ОбластьПараметр1);
ТабДок.Присоединить(ОбластьКартинка11);
ТабДок.Присоединить(ОбластьПараметр2);
ТабДок.Присоединить(ОбластьКартинка22);
конецесли;
КонецЦикла;
НомерСтроки_н=НомерСтроки;
НомерСтроки=НомерСтроки+строка[0].свойства.Количество();
НомерСтроки_к=НомерСтроки;
ОбластьКартинка01 = ТабДок.Область(НомерСтроки_н+СчетчикШапки+1,3,НомерСтроки_к+СчетчикШапки,3);
ОбластьКартинка01.Объединить();
Линия = Новый Линия(ТипЛинииЯчейкиТабличногоДокумента.Сплошная, 1);
ОбластьКарточки1 =ТабДок.Область(НомерСтроки_н+СчетчикШапки+1,1,НомерСтроки_к+СчетчикШапки,3);
ОбластьКарточки1.Обвести(Линия, Линия, Линия, Линия);
Рисунок1 = ТабДок.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
Рисунок1.Картинка = Изображение1;
Рисунок1.Расположить(ОбластьКартинка01);
если Рисунок1.Высота>ВысотаРисунка тогда Рисунок1.Высота=ВысотаРисунка; конецесли;
если Рисунок1.Ширина>ШиринаРисунка тогда Рисунок1.Ширина=ШиринаРисунка; конецесли;
ОбластьКартинка02 = ТабДок.Область(НомерСтроки_н+СчетчикШапки+1,6,НомерСтроки_к+СчетчикШапки,6);
ОбластьКартинка02.Объединить();
Линия = Новый Линия(ТипЛинииЯчейкиТабличногоДокумента.Сплошная, 1);
ОбластьКарточки2 =ТабДок.Область(НомерСтроки_н+1+СчетчикШапки,4,НомерСтроки_к+СчетчикШапки,6);
ОбластьКарточки2.Обвести(Линия, Линия, Линия, Линия);
Рисунок2 = ТабДок.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
Рисунок2.Картинка = Изображение2;
Рисунок2.Расположить(ОбластьКартинка02);
если Рисунок2.Высота>ВысотаРисунка тогда Рисунок2.Высота=ВысотаРисунка; конецесли;
если Рисунок2.Ширина>ШиринаРисунка тогда Рисунок2.Ширина=ШиринаРисунка; конецесли;
МассивОбластей.Очистить();
МассивОбластей.Добавить(Макет.ПолучитьОбласть(НомерСтроки_н+1+СчетчикШапки,1,НомерСтроки_к+СчетчикШапки,6));
Если Не ТабДок.ПроверитьВывод(МассивОбластей) Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц(); // начнем новую страницу
ТабДок.Вывести(ОбластьШапка1); //область шапка
ТабДок.Присоединить(ОбластьШапка2); //область шапка
ТабДок.Присоединить(ОбластьШапка3); //область шапка
ТабДок.Присоединить(ОбластьШапка4); //область шапка
МассивОбластей.Очистить();
СчетчикШапки=СчетчикШапки+ ШапкаСтрока;
КонецЕсли;
конеццикла;
ТабДок.НижнийКолонтитул.НачальнаяСтраница = 1;
ТабДок.НижнийКолонтитул.ВертикальноеПоложение = ВертикальноеПоложение.Низ;
ТабДок.НижнийКолонтитул.ТекстВЦентре= строка(ИмяПользователя())+" [&Дата] - [&Время]";
ТабДок.НижнийКолонтитул.ТекстСправа="Страница [&НомерСтраницы] из [&СтраницВсего]";
ТабДок.РазмерКолонтитулаСнизу=РазмКолонтитул;
ТабДок.ПолеСлева=ПолеСлев;
ТабДок.ПолеСверху=ПолеСверх;
ТабДок.ПолеСнизу=ПолеСниз;
ТабДок.ПолеСправа=ПолеСправ;
ТабДок.Автомасштаб=истина;
ТабДок.НижнийКолонтитул.Выводить = Истина;
ТабДок.ОтображатьСетку = Ложь;
ТабДок.Защита = Истина;
ТабДок.ТолькоПросмотр = Истина;
ТабДок.ОриентацияСтраницы=ОриентацияСтраницы.Ландшафт;
ТабДок.ЭкземпляровНаСтранице=ЭкземНаСтранице; //на листе будет размещено 2 страницы
ТабДок.РазмерСтраницы= "A4";
ТабДок.ОтображатьЗаголовки = Ложь;
ТабДок.Показать();
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7
https://pro1c.org.ua