Печать этикетки со штрихкодом - на принтере 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)");

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