Вывести штрих-код в печатную форму

Для вывода штрих кода в печатную форму, в 1С:Предприятии предназначен объект "1С.V8.Печать штрих-кодов". Для того чтобы он стал доступен на компьютере должна быть установлена компонента "1CBarCode.exe".

Установка компоненты 1CBarCode.exe

Добавление штрих-кода в печатную форму

Функция ПолучитьЗначениеТипаШтрихкодаДляЭУ(ТипКода)
	Перем Значение;
	
	Если ТипКода = ПланыВидовХарактеристик.ТипыШтрихкодов.EAN8 Тогда
		Значение = 0;
	ИначеЕсли ТипКода = ПланыВидовХарактеристик.ТипыШтрихкодов.EAN13 Тогда
		Значение = 1;
	ИначеЕсли ТипКода = ПланыВидовХарактеристик.ТипыШтрихкодов.EAN128 Тогда
		Значение = 2;
	ИначеЕсли ТипКода = ПланыВидовХарактеристик.ТипыШтрихкодов.Code39 Тогда
		Значение = 3;
	ИначеЕсли ТипКода = ПланыВидовХарактеристик.ТипыШтрихкодов.Code128 Тогда
		Значение = 4;
	Иначе
		Значение = -1;
	КонецЕсли;
	
	Возврат Значение;
КонецФункции 

Процедура ВывестиШтрихКодВПечатнуюФорму(Кнопка)
	
	//Для типовых конфигураций
	ТипКода = ПолучитьЗначениеТипаШтрихкодаДляЭУ(ПланыВидовХарактеристик.ТипыШтрихкодов.EAN8);	
	
	//Для произвольных конфигураций
	ТипКода = 0;  //EAN8
	ТипКода = 1;  //EAN13
	ТипКода = 2;  //EAN128
	ТипКода = 3;  //CODE39
	ТипКода = 4;  //CODE128
	ТипКода = 5;  //CODE16K
	ТипКода = 6;  //PDF417
	ТипКода = 7;  //Industrial2of5
	ТипКода = 8;  //Interleaved2of5
	ТипКода = 9;  //Code39FullASCII
	ТипКода = 10; //CODE93
	ТипКода = 11; //ITF14
	ТипКода = 12; //RSS14
	ТипКода = 13; //CodaBar
	ТипКода = 14; //EAN13 AddOn 2
	ТипКода = 15; //EAN13 AddOn 5

	Макет = ПолучитьМакет("Макет1");
	Макет.Рисунки.D1.Объект.ТекстКода = "1234567";	
	Макет.Рисунки.D1.Объект.ТипКода = ТипКода;
	Макет.Показать();
	
КонецПроцедуры