Мог-бы предложить идею формирования этикетки. Правда, его не прогонял через отладчик, но печатает мгновенно. Может, будет полезно. Отдельную ветку делать смысла и желания нет, а так вроде функция по теме поста.
УправлениеТорговлей-Общие-ОбщиеМодули-РаботаСТорговымОборудованием разместил код, который можно вызывать из любого документа или управляемой формы, только надо ссылку товара передать.
Вызывается соответственно:
РаботаСТорговымОборудованием.ПечатьОднойНебольшойЭтикетки(СсылкаНаСтрокуТовара);
Функция ПечатьОднойНебольшойЭтикетки(Номенкл,Колво=Неопределено,Харка=Неопределено) Экспорт
//Номенкл = ЭлементыФормы.Список.ТекущаяСтрока.Ссылка;
Номенкл = ЭлементыФормы.Список.ТекущаяСтрока.Ссылка;
СписокВыбора = Новый СписокЗначений;
СписокВыбора.Добавить(ВидСравнения.Равно);
СписокВыбора.Добавить(ВидСравнения.НеРавно);
СписокВыбора.Добавить(ВидСравнения.ВСписке);
СписокВыбора.Добавить(ВидСравнения.НеВСписке);
СписокВыбора.Добавить(ВидСравнения.ВИерархии);
СписокВыбора.Добавить(ВидСравнения.НеВИерархии);
Макет = Новый ТабличныйДокумент;
Макет.Прочитать("c:\Ценники\Этикетка 20х30 с ценой и артикулом.mxl");
//Номенкл= Справочники.Номенклатура.НайтиПоКоду("00316650");
ЗапросД = Новый Запрос;
ЗапросД.УстановитьПараметр("Владелец",Номенкл);
Текст = "ВЫБРАТЬ
| Штрихкоды.ТипШтрихкода как ТипКода,
| Штрихкоды.Штрихкод как Штрихкод,
| Штрихкоды.Владелец КАК Номенклатура,
| Штрихкоды.ЕдиницаИзмерения,
| Штрихкоды.ХарактеристикаНоменклатуры КАК Характеристика,
| Штрихкоды.СерияНоменклатуры КАК Серия,
| Штрихкоды.Качество,
| Штрихкоды.Владелец.Артикул КАК Артикул,
| 1 КАК Количество,
| Штрихкоды.Владелец.НаименованиеПолное КАК НаименованиеПолное
|ИЗ
| РегистрСведений.Штрихкоды КАК Штрихкоды
|ГДЕ
| Штрихкоды.Владелец = &Владелец
|
|УПОРЯДОЧИТЬ ПО
| Номенклатура
|АВТОУПОРЯДОЧИВАНИЕ";
ЗапросД.Текст = Текст;
РезультатЗапроса= ЗапросД.Выполнить().Выгрузить();
ТипКодаТ=РезультатЗапроса[0].ТипКода;
ШтрихкодТ=РезультатЗапроса[0].Штрихкод;
ТипЦенРозн = Справочники.ТипыЦенНоменклатуры.НайтиПоКоду("000000003");
ЦенаТов=Ценообразование.ПолучитьЦенуНоменклатуры(Номенкл,
,ТипЦенРозн,,Номенкл.ЕдиницаХраненияОстатков,);
// Показываем результирующий табличный документ пользователю
Табличныйдокумент = Новый ТабличныйДокумент;
Область = Макет.ПолучитьОбласть("ГорТело|ВертТело");
Область.Параметры.Наименование = Номенкл.Наименование;
Область.Параметры.Цена = СтрЗаменить(ЦенаТов," ","")+" руб.";
Область.Параметры.Артикул = Номенкл.Артикул;
РисунокШтрихкод = Область.Рисунки.ШтрихКод;
Попытка
КомпонентШК = Новый COMОбъект("V8.Barcod.1");
Область.Рисунки.ШтрихКод.Ширина=34;
Область.Рисунки.Штрихкод.Объект.Сообщение = РезультатЗапроса[0].Штрихкод;
Исключение
Сообщить("Компонента 1С:Печать штрихкодов не установлена на данном компьютере!", СтатусСообщения.Важное);
Отказ = Истина;
КонецПопытки;
Табличныйдокумент.Защита = ложь;
Табличныйдокумент.ТолькоПросмотр = Ложь;
Табличныйдокумент.ОтображатьСетку = Истина;
Табличныйдокумент.ОтображатьЗаголовки = Истина;
Табличныйдокумент.ПолеСверху = Макет.Область("Параметр|Сверху").Текст;// ПолеСверху;
Табличныйдокумент.ПолеСнизу = Макет.Область("Параметр|Снизу").Текст;// ПолеСнизу;
Табличныйдокумент.ПолеСлева = Макет.Область("Параметр|Слева").Текст;// ПолеСлева;
Табличныйдокумент.ПолеСправа = Макет.Область("Параметр|Справа").Текст; //ПолеСправа;
Табличныйдокумент.РазмерКолонтитулаСверху=0;
Табличныйдокумент.РазмерКолонтитулаСнизу=0;
Табличныйдокумент.Вывести(Область);
Табличныйдокумент.ТолькоПросмотр=Ложь;
Табличныйдокумент.Защита=Ложь;
Табличныйдокумент.ОтображатьЗаголовки=Истина;
Табличныйдокумент.ОтображатьСетку=Истина;
//Таб.ОриентацияСтраницы=
//Табличныйдокумент.ИмяПараметровПечати="30*20";//.МасштабПечати="70";//.АвтоМасштаб=Истина;
Табличныйдокумент.АвтоМасштаб=Истина;
Табличныйдокумент.МасштабПечати="70";
Табличныйдокумент.ИмяПринтера="TSC TTP-225 #2";
//Табличныйдокумент.Показать();
СразуНаПринтер=Ложь;
Табличныйдокумент.Вывод = ИспользованиеВывода.Разрешить;
Табличныйдокумент.Напечатать();
КонецФункции;
Показать
Надо подправить название принтера, у меня TSC TTP-225 #2 , настроенный утилитой, поставляемой вместе с принтером, ссылку на розничную цену и размеры этикетки. У меня 30*20 . Если "слетит" штрихкод, осторожно подправьте макет и размеры.
