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

1. Vitaly1C8 10.05.17 11:53 Сейчас в теме
Добрый день !
Помогите с примером, как печатать на принтере этикеток CITIZEN CL-S321 из 1С ...
Формы обычные.
Можно просто ссылку на документацию с примером.
Заранее благодарю !
Ответы
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
2. Vitaly1C8 11.05.17 11:18 Сейчас в теме
Печатаю по шаблону софта BarTender (идет в комплекте с драйвером)

Процедура КнопкаВыполнитьНажатие(Кнопка)
    // Вставить содержимое обработчика.
    Текст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)");

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

Показать
3. tjurikov_ivan 216 11.05.17 12:05 Сейчас в теме
Не знаю что у вас не работает в данном коде, если он по шаблону. Печать этикеток обычно выполняется выполняется через обычную печать, принтер этикеток ставится как windows принтер, в 1С формируется документ (страница должна быть настроена по размеру этикетки) и отправляется на печать(файл-печать).
Оставьте свое сообщение

Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот