Имя: Пароль:
1C
1С v8
Zebra GK420t печать
0 YHVVH
 
10.12.13
17:14
Есть макет сделанный в программе Zebra Designer
Есть задача чтоб из 1С можно было его распечатать.
Каким образом из 1с я могу отправить этот макет на печать?
Если кто сталкивался с подобным, поделитесь советом.
Спасибо.
1 0xFFFFFF
 
10.12.13
20:38
Зачем тебе эти приблуды всякие типа десижнер. В 1с рисуешь обычную печ форму (текст, картинки, да хоть черта лысого) и отправляешь на печать как на обычный принтер. Разница лишь только в том, что страница маленьких размеров (равна размеру этикетки).
2 YHVVH
 
10.12.13
20:56
(1)
Разница в следующем

Макеты уже нарисованы, надо будет их перерисовывать.
А их много около 1000

Во вторых, пользователю удобно рисовать Макеты в программе
чем рисовать их в 1с.

И как пользователь нарисует штрих код например?

Специализированное ПО отрабатывает корректней чем печать
из 1С.
3 YHVVH
 
10.12.13
21:02
+(1) а черта лысого мы и так рисуем из 1с. потребность возникла именно в макетах дизайнера. Я не рассматриваю альтернативные методы решения данной задачи.
4 aldabix
 
10.12.13
21:50
Этикетка = Новый ТекстовыйДокумент;
СодержимоеШК   = " что - то ";
ПодписьПодШК  = " что - то ";
ИмяПринтера = "\\server\printer"; // сетевое имя принтера

Этикетка.ДобавитьСтроку("^XA ^BY3,5 ^FO25,20 ^B7N,8.5,1.5,,20,N ^FD" + СодержимоеШК  // на принтере должен быть установлен шрифт E:GOS000.FNT - GOST(устанавливается в память принтера через драйвер) + "^FS ^FO25,200 ^A@N,40,30,E:GOS000.FNT^FD" + ПодписьПодШК + "^FS ^XZ                  
                |
                |"); // этикетка в командах ZPL
                
ВременныйФайл=ПолучитьИмяВременногоФайла("txt");
    
Этикетка.ИспользуемоеИмяФайла = ВременныйФайл;
Этикетка.Записать(ВременныйФайл);
Этикетка.УстановитьТекст(КодировкаТекста.UTF8);
    
КопироватьФайл(ВременныйФайл, ИмяПринтера);
    
Попытка
    УдалитьФайлы(ВременныйФайл);
Исключение
    Сообщить("Ошибка удаления временного файла" + ВременныйФайл);
КонецПопытки;
Компьютеры — это как велосипед. Только для нашего сознания. Стив Джобс