0
Aristo
25.05.12
✎
15:08
|
В общем вывожу макет на печать. колонка 1 макета пустая, колонка 2 построчно заполняется свойствами номенклатуры. После этого колонка 1 заполняется рисунком. На выходе : фото товара, сбоку от фото его описание. На экране все выглядит отлично. При предварительном просмотре и печати текст справа исчезает.
Процедура КнопкаВыполнитьНажатие(Кнопка) Экспорт
Таб = Новый ТабличныйДокумент;
Макет = ПолучитьМакет("Макет");
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
ОбластьЗаголовок.Параметры.Наименование = ВыбНоменклатура.Наименование;
Таб.Вывести(ОбластьЗаголовок);
ФотоТовара = ВыбНоменклатура.ОсновноеИзображение.Хранилище.Получить();
// Таб.Вывести(ОбластьОписание);
ТЗСвойств = ПолучитьТЗСвойствИЗначений(ВыбНоменклатура);
Для Каждого СтрокаСвойств из ТЗСвойств цикл
СтрокаСвойства = СтрокаСвойств.Свойство +":"+СтрокаСвойств.Значение;
ОбластьСвойства = Макет.ПолучитьОбласть("Свойство");
ОбластьСвойства.Параметры.СтрокаСвойства = СтрокаСвойства;
Таб.Вывести(ОбластьСвойства);
КонецЦикла;
Если ФотоТовара <> НеОпределено тогда
//ОбластьОписание.Рисунки.ФотоТовара.Картинка = ФотоТовара;
Рисунок = Таб.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
Индекс = Таб.Рисунки.Индекс(Рисунок);
Рисунок.Картинка = ФотоТовара;
Рисунок.Расположить(Таб.Область("R2C1:R18C1"));
Рисунок.ВыводитьНаПечать = Истина;
Рисунок.ГраницаСверху = Ложь;
Рисунок.ГраницаСнизу = Ложь;
Рисунок.ГраницаСлева = Ложь;
Рисунок.ГраницаСправа = Ложь;
КонецЕсли;
Таб.Показать();
// Вставить содержимое обработчика.
КонецПроцедуры
|
|