Печать этикетки со штрихкодом - на принтере CITIZEN CL-S321
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Печатаю по шаблону софта 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)");
КонецПроцедуры
Показать
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот