8.х BarCode

Ткните вдоку по работе с barcode из 1с 8.1....
А еще лучшее примерчик...

Нужно установить драйвер "Печать штрих-кода"

пример:

Код:

//Печать штрих-кода
ТипКода = 4;      // Тип штрих-кода: Code128
ФИО = "Вася Пупкин";
ШтрихКод = "123456789";
Попытка
КомпонентШК = Новый COMОбъект("V8.Barcod");
Исключение
Сообщить("Компонента 1С:Печать штрих-кодов не установлена на данном компьютере!"+Символы.ПС+
"Обратитесь к администратору"+Символы.ПС, СтатусСообщения.Важное);
Возврат;
КонецПопытки;

Попытка
КомпонентШК.ТипКода   = ТипКода;
КомпонентШК.Сообщение = ШтрихКод;
КомпонентШК.ОтображатьТекст = Ложь;
Исключение
Сообщить("Ошибка печати"+Символы.ПС+"Обратитесь к администратору"+Символы.ПС);
Возврат;
КонецПопытки;

ТабДок                         = Новый ТабличныйДокумент;
Макет                           = ПолучитьОбщийМакет("ШтрихКодСотрудника");
ЭтикеткаОбласть           = Макет.ПолучитьОбласть(1,1,6,2);
ОбластьСотрудник   	= ЭтикеткаОбласть.Области.Сотрудник;
ОбластьШтрихкод         = ЭтикеткаОбласть.Области.ОбластьШтрихкод;
РисунокШтрихкод         = ЭтикеткаОбласть.Рисунки.Штрихкод;
РисунокШтрихкод.Расположить(ОбластьШтрихкод);

ЭтикеткаОбласть.Рисунки.Штрихкод.Объект.ТипКода = КомпонентШК.ТипКода;
ЭтикеткаОбласть.Рисунки.Штрихкод.Объект.Сообщение = КомпонентШК.Сообщение;
ЭтикеткаОбласть.Рисунки.Штрихкод.Объект.ОтображатьТекст = КомпонентШК.ОтображатьТекст;

ОбластьСотрудник.Текст  = ФИО;

ТабДок.Присоединить(ЭтикеткаОбласть);

ТабДок.Напечатать(Ложь);