Etiqueta com código de barras

Discussão em 'Progress 4GL' iniciado por marcoagl, Setembro 11, 2012.

  1. marcoagl

    marcoagl Membro Participativo

    Prezados Colegas,

    Estou precisando fazer etiquetas com codigo de barras.
    Não faço a minima idéia de como fazer.
    Alguem tem um exemplo ?

    Obrigado.
    marcoagl, Setembro 11, 2012
    #1
  2. eriutoncharles

    eriutoncharles Membro Participativo

    Olá, bom dia !!

    A forma mas adequada de se trabalhar com etiquetas código de barras é usando impressora do Tipo Térmica, tais como Zebra, Argox, dentre outras.

    Seria usando este tipo de impressora que você gostaria de gerar as etiquetas, caso sim, diga qual a marca/modelo de impressora para que o pessoal possa lhe ajudar.

    Caso queira também, podes gerar no word, por exemplo, e este possibilitaria imprimir as barras em impressoras LaserJet facilitando a questão da aquisição de hardware, visto que todos temos impressoras Laser na empresa.

    Então, posta ai detalhes de como queira gerar as barras, que o pessoal aqui lhe ajuda.
    Se eu puder, tb posso lhe ajudar!
    Gero Barras na Zebra, na Argox e também numa matriz no Word, através de uma fonte código de barras.

    Um Abraço!
    eriutoncharles, Setembro 12, 2012
    #2
  3. tandujar

    tandujar Membro Participativo

    Bom dia,

    Estou precisando criar etiquetas para impressora Zebra e Sato através do progress.

    Você tem algum fonte de exemplo ?

    Grato,

    Tiago
    tandujar, Setembro 14, 2012
    #3
  4. eriutoncharles

    eriutoncharles Membro Participativo

    Boa Tarde!

    Meu caro, vais precisar dá uma olhada em manuais sobre Programação EPL.
    veja este tópico http://www.4each.com.br/viewtopic.php?f=5&t=1329
    neste link tem vários manuais para programação e exemplos
    http://www.cajba.com/EPL_Prog.rar

    Vou te passar um exemplo bem simples de uma etiqueta gerada via Progress para a Zebra... esta outra eu não tenho, nunca programei pra ela.

    Código:
    DEF VAR vLine AS INT NO-UNDO.
ASSIGN vLine = 10.
 PUT "N" SKIP.
      PUT "q1200" SKIP. /* Largura da Etiqueta em mm*/
      PUT 'A10,' + TRIM(STRING(vLine,">>9")) + ',4,4,1,3,N,"'  +  "  " +
          "TESTANDO...." FORM "X(55)" '"'  SKIP. /* Troque o testando por suas variáveis */
/* o vLine vem crescendo... equivale ao plano cartesiano , seria o Y... o 10 ali apos o A seria o X .. quanto maior mais longe o centro (0). */

      PUT 'A10,' + TRIM(STRING(vLine + 20,">>9")) + ',4,2,1,2,N,"'  +  "  " +
         "teste 2" FORM "X(65)" '"'  SKIP.
      PUT 'A20,' + TRIM(STRING(vLine + 60,">>9")) + ',4,5,2,2,N,"'  +  "  " +
      "123456" FORM "X(55)" '"'  SKIP.
      PUT TRIM('B290,380,0,1,2,7,95,B,"') FORM "X(23)" "1234567" FORM "X(7)" '"' SKIP.
      PUT "P1" SKIP.
     OUTPUT CLOSE.
     DOS SILENT  TYPE ETIQUETA.TXT > PRN.
     OUTPUT TO VALUE(vFile).
     PUT "N" SKIP.
    Veja se isso lhe ajuda!!
    Um Abraço,
    Eriuton Charles
    eriutoncharles, Setembro 14, 2012
    #4

Compartilhe esta Página