Примеры для 1c v8
// 1-й вариант //Как вывести картинку в табличный документ? ТабДок = Новый ТабличныйДокумент; Макет = ОбработкаОбъект.ПолучитьМакет("Макет"); ОбластьКартинки = Макет.ПолучитьОбласть("ОбластьСКартинкой"); Картинка = Новый Картинка(c:\sani4-ru.png); // Элемент управления "Логотип" входит в коллекцию картинок области. ОбластьКартинки.Рисунки.Логотип.Картинка = Картинка; ТабДок.Вывести(ОбластьКартинки); ТабДок.Показать(); // 2-й вариант //Как вывести картинку в табличный документ без изменения макета? Область = Макет.ПолучитьОбласть("Шапка"); Рисунок = Область.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка); Рисунок.Верх = 5; Рисунок.Высота = 10; Рисунок.Ширина = 10; Рисунок.Лево = 5; Рисунок.Картинка = Новый Картинка(c:\sani4-ru.png); Рисунок.РазмерКартинки = РазмерКартинки.РеальныйРазмер; ТабДок.Вывести(Область); //3-й вариант //ПечатьОрганизации , добавляем в макет картинку с именем Картинка1 в самую нижнюю //область с именем ОбластьПечатьОрганизации ОбластьПечатьОрганизации = Макет.ПолучитьОбласть("ПечатьОрганизации"); Картинка= Новый Картинка("c:\sani4-ru.png") ; ОбластьПечатьОрганизации.Рисунки.Картинка1.Картинка = картинка; ТабДок.Вывести(ОбластьПечатьОрганизации); // 4-й вариант динамически ОбластьПечатьОрганизации = Макет.ПолучитьОбласть("ПечатьОрганизации"); КартинкаПечатьОрганизации = ОбластьПечатьОрганизации.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка); КартинкаПечатьОрганизации.Картинка = БиблиотекаКартинок.ОбщаяКартинка1; КартинкаПечатьОрганизации.Верх = 0; КартинкаПечатьОрганизации.Высота = 80; КартинкаПечатьОрганизации.Ширина = 80; КартинкаПечатьОрганизации.Лево = 50; КартинкаПечатьОрганизации.ГраницаСверху = Ложь; КартинкаПечатьОрганизации.ГраницаСлева = Ложь; КартинкаПечатьОрганизации.ГраницаСправа = Ложь; КартинкаПечатьОрганизации.ГраницаСнизу = Ложь; КартинкаПечатьОрганизации.РазмерКартинки = РазмерКартинки.АвтоРазмер; ТабДок.Вывести(ОбластьПечатьОрганизации); //5-й вариант получение картинки из хранилища значений // Выборка.Изображение - выборка из запроса, Изображение реквизит -хранил. значений Попытка Путь = КаталогВременныхФайлов()+ "\1С_Картинка_"+Формат(ТекущаяДата(),"ДФ=yyyyMMddЧЧммсс")+".bmp"; КартинкаВПамяти = Выборка.Изображение.Получить(); КартинкаВПамяти.Записать(Путь); ОбластьСостав.Рисунки.D1.Картинка = Новый Картинка(Путь); Исключение ОбластьСостав.Рисунки.D1.Картинка = Новый Картинка; КонецПопытки; |
Все проверенно и Скопировано отсюда!