Печать этикетки со штрихкодом - на принтере 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С формируется документ (страница должна быть настроена по размеру этикетки) и отправляется на печать(файл-печать).
Оставьте свое сообщение

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