Печать штрих кода в УФ

1С v8

27.03.13

✎

11:31

Платформа 8.2.17.143
Режим управ. приложения. Пытаюсь вывести штрих код на форму. Все делаю как описано в http://programna1c.narod.ru/docs/Articles/BarcodeUprApp/BarcodeUprApp.html один в один
Штрих код выводится, но без текста внизу (мне нужен номер документа).
Что я делаю не так? Может кто-то подскажет.

1 Valadis

27.03.13

✎

11:39

Код примерно такой:
Функция ПолучитьКартинкуШтрихкода(ВнешняяКомпонента, Штрихкод, Ширина, Высота) Экспорт

// Зададим размер картинки
ВнешняяКомпонента.Ширина =Ширина;
ВнешняяКомпонента.Высота =Высота;

// Разрешим компоненте самой определять тип кода
ВнешняяКомпонента.АвтоТип = Истина;

// Если код содержит контрольный символ, обязательно указываем
ВнешняяКомпонента.СодержитКС = СтрДлина(Штрихкод) = 13;

// Если отображать контрольный символ не нужно
// ВнешняяКомпонента.ВидимостьКС = Ложь;

// Формируем картинку штрихкода
ВнешняяКомпонента.ЗначениеКода = ШтрихКод;
//ВнешняяКомпонента.ТекстКода = ШтрихКод;

// Если установленная нами ширина меньше минимально допустимой для этого штрихкода
Если ВнешняяКомпонента.Ширина < ВнешняяКомпонента.МинимальнаяШиринаКода Тогда
// Скорректируем ширину
ВнешняяКомпонента.Ширина = ВнешняяКомпонента.МинимальнаяШиринаКода + 10;
КонецЕсли;

// Сформируем картинку
ДвоичныеДанныеКартинки = ВнешняяКомпонента.ПолучитьШтрихкод();

// Если картинка сформировалась
Если ДвоичныеДанныеКартинки <> Неопределено Тогда
// Формируем из двоичных данных
Возврат Новый Картинка(ДвоичныеДанныеКартинки);
КонецЕсли;

Возврат Неопределено;

КонецФункции

2 Valadis

27.03.13

✎

11:40

Попытка
ОбластьПодвал.Рисунки.ШК.Защита = Ложь;
ВнешняяКомпонента.ОтображатьТекст = Истина;

ОбластьПодвал.Рисунки.ШК.Картинка = ПолучитьКартинкуШтрихкода(ВнешняяКомпонента, Ссылка.номер, 75, 120);
Исключение
СтрокаСообщения = ("Ошибка вывода штрих кода " + ОписаниеОшибки());
Сообщить(СтрокаСообщения, СтатусСообщения.Информация);
КонецПопытки;

3 Valadis

27.03.13

✎

11:45

Есть идеи?