|
Процедура КнопкаВыполнитьНажатие(Кнопка)
ТабДокумент = Новый ТабличныйДокумент;
Макет = ПолучитьМакет("Тест");
Картинка = Новый Картинка("C:\Users\Марат\Desktop\hb5.png");
Рисунок = ТабДокумент.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
Рисунок.Верх = 20;
Рисунок.Лево = 20;
Рисунок.Высота = 100;
Рисунок.Ширина = 100;
Рисунок.Картинка = Картинка;
Рисунок.РазмерКартинки = РазмерКартинки.РеальныйРазмер;
ТабДокумент.Вывести(ТабДокумент);
ТабДокумент.ОтображатьСетку = Ложь;
ТабДокумент.Защита = Ложь;
ТабДокумент.ТолькоПросмотр = Ложь;
ТабДокумент.ОтображатьЗаголовки = Ложь;
ТабДокумент.Показать();
КонецПроцедуры
Помогите пожалуйста, сам не смог разобраться почему картинка выводиться на бумагу квадратиками.
обработка
|
