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