Демонстрация простой печати штрихкода

Обработка выводит на печать штрихкод необходимого содержания в заданном типе штрихкода. Краткая справка по типам штрихкодов содержится в обработке (позаимствована из справки к 1CBarCode).

Также включил сюда и стандартную библиотеку «Элемент управления 1С:Печать штрихкодов» (1CBarCode.exe)

Вот код единственной функции:

Процедура КнопкаВыполнитьНажатие(Кнопка)
Перем КомпонентШК;
Попытка КомпонентШК = Новый COMОбъект("V8.Barcod");
Исключение // Элемент управления не установлен
КомпонентШК = Неопределено;
КонецПопытки;
ТабДок = Новый ТабличныйДокумент;

Макет = ПолучитьМакет("Макет");
НадШапкой=Макет.ПолучитьОбласть("Заголовок");
НадШапкой.Параметры.ТипШК=Строка(ТипШтрихкода);
ТабДок.Вывести(НадШапкой);

Секция = Макет.ПолучитьОбласть("Шапка");
Секция.Параметры.Сообщение=Строка(Сообщение);
ОбластьШтрихкод= Секция.Области.ОбластьШтрихкод;
РисунокШтрихкод= Секция.Рисунки.ШК;

РисунокШтрихкод.Объект.ТипКода = ТипШтрихкода;
РисунокШтрихкод.Объект.Сообщение = Строка(Сообщение);

РисунокШтрихкод.Расположить(ОбластьШтрихкод);
ТабДок.Вывести(Секция);

ТабДок.Показать();
КонецПроцедуры