Zebra TPL 2844

Galera terei que desenvolver umas etiquetas para impressara zebra, alguem pode me mandar os codigos para posicionamento do texto, como linha e coluna.... alterar o tamanho da fonte, definir o tamanho da etiqueta e o maximo de informações possiveis....

Carlos, Boa noite.

Juntamente com a impressora Zebra TLP 2844, vem dois produtos com o nome Zebra Designer e Zebra Designer Pro que fará toda a parte do design da sua etiqueta. Nas impressoras mais antigas vem o software Bar One que também pode ser utilizado.
Após a confecção do mesmo, você poderá imprimir esta etiqueta para arquivo/formato texto (.txt) ou para impressora em formato arquivo como eu falei (.prn), que ao abrir este arquivo estará já na linguagem das impressoras que automaticamente você depois dá-se o comando PUT para escrever estes comandos.
Lembrando que para enviar para impressora usa-se antes do PUT, o comando output to printer e depois output close. Blz. Até que você vai imprimir sempre uma mesma etiqueta, o que nós fazemos é colocar dados com #, ou $, ou algum símbolo dentro do design da etiqueta em vez de colocar os dados fixos, e depois é somente você mudar dentro do seu programa PROGRESS, .p, os símbolos. Por exemplo, se você colocou dentro da etiqueta #Item ou $Item por item.it-codigo ou por item.desc-item.

Qualquer dúvida ou esclarecimento estou a disposição.

Bom dia,

podia dar um exemplo?

Veja se ajuda:

Código:

def var c-path as char no-undo.
def var aux as char no-undo.
def var lop as int no-undo.

assign c-Path = "net use lpt3 \\sua_rede\Zebra".

output to value(session:temp-directory + "teste.txt").
   
    for each item no-lock:
        
        /* Início de Impressão */
        put "^XA" format "X(3)".

        /* Ponto Zero da Próxima Impressão */
        put control "^FO50,72".

        /* Tamanho da Etiqueta */
        put "^BY2" format "X(4)".
        
        /* Texto */
        aux = "^AGR^A0R,60^FD ITEM: " + item.it-codigo + "^FS".
        put aux format "X(" + string(length(aux)) + ")".

        /* Ponto Zero da Próxima Impressão */
        put "^FO455,150" format "X(10)".

        /* Ponto Zero da Próxima Impressão */
        put "^FO200,250" format "X(10)".

        /* Define Rotação */
        put "^BCR,175,Y,N,N" format "X(14)".

        /* Dado a ser Impresso */
        aux = "^FD" + item.codigo-refer + "^FS".
        put aux format "X(" + string(length(aux)) + ")".

        /* Ponto Zero da Próxima Impressão */
        assign aux  = "^AGR^A0R,40^FD" + item.desc-item + "^FS".
               aux2 = ''.
        
        /* Define Ponto Zero da Próxima Impressão */
        put "^FO120,150" format "X(50)".
        
        /* Define Texto */
        put aux format "X(" + string(length(aux)) + ")".
        
        /* Define Ponto Zero da Próxima Impressão */
        put "^FO65,980" format "X(9)".
        
        /* Final da Etiqueta */
        put "^XZ" format "X(3)".
        
    
    end.  /* for each item */

    output close. 

    dos silent value(string(c-Path,"x(256)")).
    do lop = 1 to 1:
        dos silent value("type " + session:temp-directory + "teste.txt >lpt3").
    end.
    dos silent value("net use lpt3 /delete").

Aqui na empresa vamos ter impressoras Zebra e este código irá ajudar-me.

Obrigado.

Cristiano fiz da forma que vc mencionou, gerei um arquivo com a etiqueta que eu quero pelo Zdesigner, mas não rolou... o que estou fazendo de errado???

Código:

DEF VAR c-linha AS CHAR.
INPUT FROM VALUE('d:\novo.txt') NO-CONVERT.
        DEFINE STREAM spool.
OUTPUT STREAM Spool TO PRINTER.

        
    REPEAT:
      ASSIGN c-linha = "".

      IMPORT UNFORMATTED c-linha .
      IF c-linha <> '' THEN
          put STREAM Spool c-linha.
      END.
      OUTPUT CLOSE.