Печать этикеток в формате ZPL/EPL

Данная компонента создана для отправки данных на принетры этикеток. Другие способы отправки данных на принтер (Например с использованием команд net use и copy) не работали, в случае когда принтер был подключен к компьютеру в сети.

Данный способ позволяет быстро выводить на печать этикетки, используя команды обрабатываемые принтером.

Компонента создана с использованием COM, работает на 1С версии 8.1 и выше. Тестировалась только на версии 1С предприятия 8.2, 8.3 в том числе на управляемых формах. 

Внимание: Вышла новая Native-API компонента для печати этикеток. Рекомендуется использовать ее для своих проектов. Подробнее в публикации: //infostart.ru/public/1188440/

1. Установка и регистрация компоненты

Для работы данной компоненты необходимо наличие установленного NET.Framework 4. Скопируйте файлы из архива в каталог на локальном компьютере (Например C:\Adm\COM\). Регистрация компоненты в системе выполняется с помощью командного файла:

@ECHO OFF

REM The following directory is for .NET 4.0
set DOTNETFX2=%SystemRoot%\Microsoft.NET\Framework\v4.0.30319
set PATH=%PATH%;%DOTNETFX2%

echo ---------------------------------------------------
regasm.exe C:\Adm\COM\VKV8MEANS.dll /codebase
echo ---------------------------------------------------
echo Done.
@pause

Обратите внимание на путь к каталогу NET Framework. Для вашей системы он может быть другой. 

2. Настройка принтера для работы

Для печати на принтере с использованием команд ZPL (EPL) необходимо закачать нужные шрифты и изображения на принтер, используя ПО поставляемое с вашим принтером. Я закачиваю данные на принтеры используя программу "Zebra Designer Font and Graphics Downloader" из состава "Zebra Setup Utilities".
Предоставляем общий доступ к принтеру по сети.  
Обращение к принтеру будет осуществляться по адресу принтера: "\\Имя компьютера\Имя принтера" или "Имя принтера", если используется локальный принтер.

3. Подготовка этикетки для печати на принтере

Этикетка формируется в виде команд принтера для печати нужного текста и изображений.
Пример этикетки в формате ZPL:

^XA
^FO20,25
^A@N,10,9,E:ARI000.FNT^FDBosch1234 Sup^FS
^FO20,49
^A@N,10,9,E:ARI001.FNT^FDАрт.1234^FS
^FO370,49
^IME:RCT.GRF^FS
^FO385,49
^A@N,8,7,E:ARI002.FNT^FDМТ14^FS
^FO50,64
^BY4^BEN,70,Y,N        
^FD4909500320181^FS
^XZ

Описывать команды ZPL и EPL не буду. Этой информации много в интернете.

Формирование этикетки производится по макету:

Где:

ТипЭлемента - Тип элемента для вывода на печать: Текст, Изображение, Штрихкод            
ПозицияЛево - Позиция элемента от левого края (По умолчанию 20)            
ПозицияВерх - Отступ от последнего элемента до текущей строки. Для первой строки 25.            
Значение - Значение для вывода в элемента            
ДополнительныеДанные - Для текста - Шрифт, Для изображения - Диск принтера, Для штрихкода - Тип штрихкода            
ВысотаЭлемента - Высота элемента. Текст - высота букв в точках (По умолчанию 10), Штрихкод - Высота кода от 1 до 10.            
ШиринаЭлемента - Ширина элемента в точках, по умолчанию 9            
ВыводитьЕслиУказанПараметр - Если в строке есть параметр и он не заполнен, то строка не будет выведена            
Отступ[Тип штрихкода] - Задается отступ для различных видов ШК

В приложенной обработке есть пример формирования этикетки и отправки на принтер. Обработка проверялась на УПП, но должна работать и на других конфигурациях.

4. Описание функций библиотеки

•     Функция "SendRawDataStringToPrinter", ("ОтправитьСтрокуДанныхНаПринтер")

                    Описание:
                    Отправляет строку данных в порт принтера. В строке передаются команды для печати эткетки.
                    Параметры:
                        Адрес порта - Строка, Имя принтера
                        Команда - Строка, Команды для отправки на порт.
                    Возвращаемое значение:
                        Истина - Данные отправлены на печать упешно

•     Функция "SendRawDataFileToPrinter", ("ОтправитьФайлДанныхНаПринтер")

                    Описание:
                        Отправляет файл в порт принтера. В текстовом файле передаются команды для печати этикетки.
                    Параметры:
                        Адрес порта: - Строка, Имя принтера
                        Имя файла - Имя файла для отправки на принтер.
                    Возвращаемое значение:
                        Истина - Данные отправлены на печать упешно    

•     Функция "BackgroundSendRawDataFileToPrinter", ("ФоноваяОтправкаФайлаДанныхНаПринтер")

                    Описание:
                        Фоновая отправка файла на принтер. Компонента вернет управление 1С не дожидаясь окончания печати. Используется при отправке на печать большого числа этикеток.
                    Параметры:
                        Адрес порта: - Строка, Имя принтера
                        Имя файла - Имя файла для отправки на принтер.
                    Возвращаемое значение:
                        Истина - Данные отправлены на печать упешно

5. Пример работы с библиотекой

Отвечая на комментарии, понял что нужно все-таки выложить простенький примерчик работы с библиотекой:

ИмяПринтера = "\\192.168.1.280\Zebra";
//ИмяПринтера = "Zebra TLP2824"; //Можно указывать системное имя принтера

ЭтикеткаТовара = "^XA
|^FO20,25
|^A@N,10,9,^FDНаименование товара^FS
|^FO20,49
|^A@N,10,9,^FDАрт.123456789^FS
|^FO20,73
|^A@N,10,9,^FDПроизводитель:Фабрика^FS
|^FO20,97
|^FO50,187
|^BY4^BEN,70,Y,N 
|^FD4909500671160^FS
|^XZ";

// Для Управляемых форм сначала подключаем компоненту
Если НЕ ПодключитьВнешнююКомпоненту("AddIn.VKV8MEA") Тогда
      Сообщить("Компонента печати этикеток не загружена");
      Возврат;
КонецЕсли;

СерверПечати = Новый("AddIn.VKV8MEA");
Результат = СерверПечати.ОтправитьСтрокуДанныхНаПринтер(ИмяПринтера, ЭтикеткаТовара);
Если НЕ Результат Тогда
    Сообщить("Ошибка печати этикетки");
КонецЕсли;