Etiqueta DataSul

Discussão em 'Progress 4GL' iniciado por maicon, Maio 20, 2013.

  1. eriutoncharles

    eriutoncharles Membro Participativo

    Boa Tarde!

    Para mandar direto pra porta lpt1 da impressora, eis um exemplo simples. Porém vai precisar estudar os comandos EPL, acredito até que aqui tenha um manual para você entender quais os comandos de tipos de fonte, eixo x, eixo y, tipos de código de barras e etc.

    Um exemplo Simples:
    Código:
    DEF VAR vFile AS CHAR.
    
    ASSIGN vFile = "C:\teste.TXT".
    OUTPUT TO VALUE (vFile).
    
    PUT "N" FORM "X(1)" SKIP.
    PUT TRIM('A10,10,0,4,1,1,N," ') FORM "X(18)" TRIM("Exemplo1") FORM "X(20)" '"' SKIP.
    PUT TRIM('A10,70,0,4,1,1,N," ') FORM "X(18)" TRIM("Exemplo2") FORM "X(15)" '"' SKIP.
    PUT TRIM('B85,210,0,1,2,7,95,B,"') FORM "X(22)" TRIM(STRING("AAA-0000","X(7)")) FORM "X(7)" '"' SKIP.
    
    PUT "P1" SKIP.
    
    OUTPUT CLOSE.
    DOS SILENT TYPE C:\teste.txt > PRN.
    
    Irei procurar aqui este manual, caso não encontre vou tentar anexar ou postar em uma área de ftp para você baixar.
    Um Abraço!
  2. eriutoncharles

    eriutoncharles Membro Participativo

  3. maicon

    maicon Membro Participativo

    Obrigado mesmo

Compartilhe esta Página