Имя: Пароль:
1C
1С v8
Печать картинки в табличном документе
0 Aristo
 
25.05.12
15:08
В общем вывожу макет на печать. колонка 1 макета пустая, колонка 2 построчно заполняется свойствами номенклатуры. После этого колонка 1 заполняется рисунком. На выходе : фото товара, сбоку от фото его описание. На экране все выглядит отлично. При предварительном просмотре и печати текст справа исчезает.

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

   Таб.Показать();
   // Вставить содержимое обработчика.
КонецПроцедуры
1 DrShad
 
25.05.12
15:10
не влазит на страницу
2 Aristo
 
25.05.12
15:47
Точно. Но непонятно, на экране все помещается. Спасибо