Печать этикетки со штрихкодом - на принтере CITIZEN CL-S321

Процедура КнопкаВыполнитьНажатие(Кнопка)
	// Вставить содержимое обработчика.
	Текст1 = "";
	Код1 = "";
	Если СокрЛП(КодНоменклатуры)<>"" И Номенклатура<>Справочники.Номенклатура.ПустаяСсылка() Тогда
		Текст1 = СокрЛП(Номенклатура);
		Код1 = "9" + СокрЛП(Номенклатура.Код);
	ИначеЕсли СокрЛП(КодОсновногоСредства)<>"" И ОсновноеСредство<>Справочники.ОсновныеСредства.ПустаяСсылка() Тогда
		Текст1 = СокрЛП(ОсновноеСредство);
		Код1 = СокрЛП(ОсновноеСредство.Код);
	КонецЕсли;
	Если Текст1 = "" Тогда		
		Возврат;
	КонецЕсли;
	
	Код1 = СтрЗаменить(Код1, "КР", "99");

	// 'Declare a BarTender application variable
	// Dim btApp As BarTender.Application

	// 'Create a new instance of BarTender
	
	btApp = Новый COMОбъект("BarTender.Application");		//	New BarTender.Application
	// Сообщить("CreateObject('BarTender.Application')");
	
	// 'Open a BarTender document
	btFormat = btApp.Formats.Open(ФайлШаблона, Ложь, "");

	// 'Set the value of the data source called Name	
	btFormat.SetNamedSubStringValue("Text1", Текст1);	
	btFormat.SetNamedSubStringValue("Code1", Код1);
	
	// 'Print the document
	btFormat.PrintOut(False, False);
	
	// 'Quit the BarTender application
	btApp.Quit(1);	// Const btDoNotSaveChanges = 1
	// Сообщить("btApp.Quit(1)");

КонецПроцедуры