1
John83
19.05.20
✎
11:12
|
вывожу так
barcode = ПолучитьCOMОбъект("","STROKESCRIBE.StrokeScribeClass.1");
ИмяФайла = ПолучитьИмяВременногоФайла("wmf");
barcode.Alphabet = 8;//QR CODE
barcode.Text= Выборка.Штрихкод; //Данные для штрихкода
код = barcode.SavePicture(ИмяФайла, 7, //7=WMF
15, //Ширина картинки штрихкода
10); //Высота штрихкода
Если код <> 0 Тогда //Проверка результата генерации штрихкода
Сообщить(строка(код) + " - " + barcode.ErrorDescription);
Возврат Неопределено;
КонецЕсли;
рис = ОбластьДанных.Рисунки.D1;
рис.РазмерКартинки = РазмерКартинки.Пропорционально;
рис.Линия = Новый Линия(ТипЛинииРисункаТабличногоДокумента.НетЛинии); //Вокруг штрихкода не должно быть рамки
рис.Картинка = Новый Картинка(ИмяФайла);//Загрузка картинки со штрихкодом
//Указывается то же имя файла, что и в SavePicture
//ТабДок.Вывести(Область);
УдалитьФайлы(ИмяФайла);//Стереть временный файл с картинкой
ТабДокумент.Присоединить(ОбластьДанных);
|
|