функционал взял из УНФ 1.6, оттуда же - компоненту и эталон макета, реализована печать ШК только EAN13, другие типы закомментированы, если кому надо, то придется добавить из унф еще несколько процедур по распознаванию типа ШК, ну или прописать свой тип непосредственно в строке ВнешняяКомпонента.ТипКода = 1;
Привожу код обработки печати, в обработке 3 макета
Макет - сам макет с картинкой, куда выводится шк
Эталон и КомпонентаПечатиШтрихкодов - макеты взятые из УНФ 1.6
Процедура КнопкаВыполнитьНажатие(Кнопка)
Таб = Новый ТабличныйДокумент;
Таб.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_Этикетка1";
макет = получитьМакет("Макет");
ЭтикеткаОбласть = Макет.ПолучитьОбласть(1,1,1,1);
Эталон = ПолучитьМакет("Эталон");
КоличествоМиллиметровВПикселе = Эталон.Рисунки.Квадрат100Пикселей.Высота / 100;
Рисунок = ЭтикеткаОбласть.Рисунки.Штрихкод;
параметрыШК = новый структура;
параметрыШК.Вставить("ОтображатьТекст",истина);
параметрыШК.Вставить("РазмерШрифта",16);
параметрыШК.Вставить("СохранятьПропорции",истина);
параметрыШК.Вставить("Штрихкод",штрихкод);
параметрыШК.Вставить("Ширина",Окр(Рисунок.Ширина / КоличествоМиллиметровВПикселе));
параметрыШК.Вставить("Высота",Окр(Рисунок.Высота / КоличествоМиллиметровВПикселе));
ЭтикеткаОбласть.Рисунки.Штрихкод.Картинка = ПолучитьКартинкуШтрихкода(параметрыШК);
Таб.Вывести(ЭтикеткаОбласть);
Таб.Показать();
КонецПроцедуры
Процедура ПередОткрытием(Отказ, СтандартнаяОбработка)
штрихкод = "2900000021778";
КонецПроцедуры
// Функция выполняет формирование изображения штрихкода.
// Параметры:
// ПараметрыШтрихкода
// Возвращаемое значение:
// Картинка - Картинка со сформированным штрихкодом или НЕОПРЕДЕЛЕНО.
Функция ПолучитьКартинкуШтрихкода(ПараметрыШтрихкода) Экспорт
ВнешняяКомпонента = ПодключитьВнешнююКомпонентуПечатиШтрихкода();
Если ВнешняяКомпонента = Неопределено Тогда
ВызватьИсключение НСтр("ru = 'Ошибка подключения внешней компоненты печати штрихкода.'");
КонецЕсли;
// Зададим размер формируемой картинки.
ВнешняяКомпонента.Ширина = Окр(ПараметрыШтрихкода.Ширина);
ВнешняяКомпонента.Высота = Окр(ПараметрыШтрихкода.Высота);
ВнешняяКомпонента.АвтоТип = Ложь;
//Если ПараметрыШтрихкода.ТипКода = 99 Тогда
// ТипШтрихкодаВрем = ОпределитьТипШтрихкода(ПараметрыШтрихкода.Штрихкод);
// Если ТипШтрихкодаВрем = "EAN8" Тогда
// ВнешняяКомпонента.ТипКода = 0;
// ИначеЕсли ТипШтрихкодаВрем = "EAN13" Тогда
ВнешняяКомпонента.ТипКода = 1;
// // Если код содержит контрольный символ, обязательно указываем.
// ВнешняяКомпонента.СодержитКС = СтрДлина(ПараметрыШтрихкода.Штрихкод) = 13;
// ИначеЕсли ТипШтрихкодаВрем = "EAN128" Тогда
// ВнешняяКомпонента.ТипКода = 2;
// ИначеЕсли ТипШтрихкодаВрем = "CODE39" Тогда
// ВнешняяКомпонента.ТипКода = 3;
// ИначеЕсли ТипШтрихкодаВрем = "CODE128" Тогда
// ВнешняяКомпонента.ТипКода = 4;
// ИначеЕсли ТипШтрихкодаВрем = "ITF14" Тогда
// ВнешняяКомпонента.ТипКода = 11;
// ИначеЕсли ТипШтрихкодаВрем = "QR" Тогда
// ВнешняяКомпонента.ТипКода = 16;
// ИначеЕсли ТипШтрихкодаВрем = "EAN13Addon2" Тогда
// ВнешняяКомпонента.ТипКода = 14;
// ИначеЕсли ТипШтрихкодаВрем = "EAN13Addon5" Тогда
// ВнешняяКомпонента.ТипКода = 15;
// Иначе
// ВнешняяКомпонента.АвтоТип = Истина;
// КонецЕсли;
//Иначе
// ВнешняяКомпонента.АвтоТип = Ложь;
// ВнешняяКомпонента.ТипКода = ПараметрыШтрихкода.ТипКода;
//КонецЕсли;
//Если ПараметрыШтрихкода.Свойство("ПрозрачныйФон") Тогда
// ВнешняяКомпонента.ПрозрачныйФон = ПараметрыШтрихкода.ПрозрачныйФон;
//КонецЕсли;
//
//Если ПараметрыШтрихкода.Свойство("GS1DatabarКоличествоСтрок") Тогда
// ВнешняяКомпонента.GS1DatabarКоличествоСтрок = ПараметрыШтрихкода.GS1DatabarКоличествоСтрок;
//КонецЕсли;
//ВнешняяКомпонента.ОтображатьТекст = ПараметрыШтрихкода.ОтображатьТекст;
ВнешняяКомпонента.ОтображатьТекст = ПараметрыШтрихкода.ОтображатьТекст;
// Формируем картинку штрихкода.
ВнешняяКомпонента.ЗначениеКода = ПараметрыШтрихкода.Штрихкод;
// Угол поворота штрихкода.
//ВнешняяКомпонента.УголПоворота = ?(ПараметрыШтрихкода.Свойство("УголПоворота"), ПараметрыШтрихкода.УголПоворота, 0);
// Уровень коррекции QR кода (L=0, M=1, Q=2, H=3).
//ВнешняяКомпонента.УровеньКоррекцииQR = ?(ПараметрыШтрихкода.Свойство("УровеньКоррекцииQR"), ПараметрыШтрихкода.УровеньКоррекцииQR, 1);
// Для обеспечения совместимости с предыдущими версиями БПО.
Если Не ПараметрыШтрихкода.Свойство("Масштабировать")
Или (ПараметрыШтрихкода.Свойство("Масштабировать") И ПараметрыШтрихкода.Масштабировать) Тогда
Если Не ПараметрыШтрихкода.Свойство("СохранятьПропорции")
Или (ПараметрыШтрихкода.Свойство("СохранятьПропорции") И Не ПараметрыШтрихкода.СохранятьПропорции) Тогда
// Если установленная нами ширина меньше минимально допустимой для этого штрихкода.
Если ВнешняяКомпонента.Ширина < ВнешняяКомпонента.МинимальнаяШиринаКода Тогда
ВнешняяКомпонента.Ширина = ВнешняяКомпонента.МинимальнаяШиринаКода;
КонецЕсли;
// Если установленная нами высота меньше минимально допустимой для этого штрихкода.
Если ВнешняяКомпонента.Высота < ВнешняяКомпонента.МинимальнаяВысотаКода Тогда
ВнешняяКомпонента.Высота = ВнешняяКомпонента.МинимальнаяВысотаКода;
КонецЕсли;
ИначеЕсли ПараметрыШтрихкода.Свойство("СохранятьПропорции") И ПараметрыШтрихкода.СохранятьПропорции Тогда
Пока ВнешняяКомпонента.Ширина < ВнешняяКомпонента.МинимальнаяШиринаКода
Или ВнешняяКомпонента.Высота < ВнешняяКомпонента.МинимальнаяВысотаКода Цикл
// Если установленная нами ширина меньше минимально допустимой для этого штрихкода.
Если ВнешняяКомпонента.Ширина < ВнешняяКомпонента.МинимальнаяШиринаКода Тогда
ВнешняяКомпонента.Ширина = ВнешняяКомпонента.МинимальнаяШиринаКода;
ВнешняяКомпонента.Высота = (ВнешняяКомпонента.МинимальнаяШиринаКода / Окр(ПараметрыШтрихкода.Ширина)) * Окр(ПараметрыШтрихкода.Высота);
КонецЕсли;
// Если установленная нами высота меньше минимально допустимой для этого штрихкода.
Если ВнешняяКомпонента.Высота < ВнешняяКомпонента.МинимальнаяВысотаКода Тогда
ВнешняяКомпонента.Высота = ВнешняяКомпонента.МинимальнаяВысотаКода;
ВнешняяКомпонента.Ширина = (ВнешняяКомпонента.МинимальнаяВысотаКода / Окр(ПараметрыШтрихкода.Высота)) * Окр(ПараметрыШтрихкода.Ширина);
КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецЕсли;
// ВертикальноеВыравниваниеКода: 1 - по верхнему краю, 2 - по центру, 3 - по нижнему краю.
ВнешняяКомпонента.ВертикальноеВыравниваниеКода = 1;
//Если ПараметрыШтрихкода.Свойство("ВертикальноеВыравнивание") И (ПараметрыШтрихкода.ВертикальноеВыравнивание > 0) Тогда
// ВнешняяКомпонента.ВертикальноеВыравниваниеКода = ПараметрыШтрихкода.ВертикальноеВыравнивание;
//КонецЕсли;
Если ПараметрыШтрихкода.Свойство("РазмерШрифта") И (ПараметрыШтрихкода.РазмерШрифта > 0)
И (ПараметрыШтрихкода.ОтображатьТекст) И (ВнешняяКомпонента.РазмерШрифта <> ПараметрыШтрихкода.РазмерШрифта) Тогда
ВнешняяКомпонента.РазмерШрифта = ПараметрыШтрихкода.РазмерШрифта;
КонецЕсли;
ВнешняяКомпонента.РазмерШрифта = 16;
Если ПараметрыШтрихкода.Свойство("РазмерШрифта") И ПараметрыШтрихкода.РазмерШрифта > 0
И ПараметрыШтрихкода.Свойство("МонохромныйШрифт") Тогда
Если ПараметрыШтрихкода.МонохромныйШрифт Тогда
ВнешняяКомпонента.МаксимальныйРазмерШрифтаДляПринтеровНизкогоРазрешения = ПараметрыШтрихкода.РазмерШрифта + 1;
Иначе
ВнешняяКомпонента.МаксимальныйРазмерШрифтаДляПринтеровНизкогоРазрешения = -1;
КонецЕсли;
КонецЕсли;
// Сформируем картинку
ДвоичныеДанныеКартинки = ВнешняяКомпонента.ПолучитьШтрихкод();
// Если картинка сформировалась.
Если ДвоичныеДанныеКартинки <> Неопределено Тогда
// Формируем из двоичных данных.
Возврат Новый Картинка(ДвоичныеДанныеКартинки);
КонецЕсли;
Возврат Неопределено;
КонецФункции
Функция ПодключитьВнешнююКомпонентуПечатиШтрихкода() Экспорт
макет = ПолучитьМакет ("КомпонентаПечатиШтрихкодов");
адрес = ПоместитьВоВременноеХранилище( макет );
ПодключениеВыполнено = ПодключитьВнешнююКомпоненту(адрес, "КартинкаШтрихкода", ТипВнешнейКомпоненты.Native);
// Создадим объект внешней компоненты.
Если ПодключениеВыполнено Тогда
ВнешняяКомпонента = Новый("AddIn.КартинкаШтрихкода.Barcode");
Иначе
Возврат Неопределено;
КонецЕсли;
// Если нет возможности рисовать.
Если НЕ ВнешняяКомпонента.ГрафикаУстановлена Тогда
// То картинку сформировать не сможем.
Возврат Неопределено;
Иначе
// Установим основные параметры компоненты.
// Если в системе установлен шрифт Tahoma.
Если ВнешняяКомпонента.НайтиШрифт("Tahoma") Тогда
// Выбираем его как шрифт для формирования картинки.
ВнешняяКомпонента.Шрифт = "Tahoma";
Иначе
// Шрифт Tahoma в системе отсутствует.
// Обойдем все доступные компоненте шрифты.
Для Сч = 0 По ВнешняяКомпонента.КоличествоШрифтов -1 Цикл
// Получим очередной шрифт, доступный компоненте.
ТекущийШрифт = ВнешняяКомпонента.ШрифтПоИндексу(Сч);
// Если шрифт доступен
Если ТекущийШрифт <> Неопределено Тогда
// Они и будет шрифтом для формирования штрихкода.
ВнешняяКомпонента.Шрифт = ТекущийШрифт;
Прервать;
КонецЕсли;
КонецЦикла;
КонецЕсли;
// Установим размер шрифта
ВнешняяКомпонента.РазмерШрифта = 12;
Возврат ВнешняяКомпонента;
КонецЕсли;
КонецФункции
