Impressão Etiquetas em impressora Zebra

[marlonpasquali]

Olá pessoal,
preciso muito de ajuda. Tenho Reports 6i , e preciso desenvolver uma impressão de etiquetas para impressora Zebra S4M que conterá algumas linhas de texto e tambem um código de barras padrão Code128B. Tenho que usar a linguagem da impressora EPL para enviar os comandos e imprimir as etiquetas.
alguém poderia compartilhar comigo um exemplo de como mandar os dados para esta impressora? Se alguém puder compartilhar um exempo de reports.
Muito obrigado,
att,
Marlon

[RodrigoValentim]

Amigo, Esqueça o reports. Essa impressora é muito boa para impressão, porém, limitada.
Determinados digitos (especiais) para exibir, precisa de uma codificação diferente (no manual ensina direitinho)

Segue um exemplo

Selecionar tudo

vTexto := '^XA'||
'^PON'||
'^FO30,014^GB630,3,2^FS'|| -- Imprime uma linha
'^FO30,12^AR^FDServico de Nutricao^FS'|| -- Cabecalho
'^FO360,15^AR^FDRefeicao: Dieta Zero^FS'|| -- Cabecalho
'^FO30,55^GB630,3,2^FS'|| -- Imprime uma linha
'^FO30,60^AR^FDPaciente: Rodrigo^FS'|| -- Nova linha
'^XZ';	--finaliza 

Para mandar o texto para impressora, eu simplesmente gravo a String na :LPT1


Exemplo da procedure

Selecionar tudo

PROCEDURE grava_arquivo (Arq varchar2, ExportText varchar2, Tipo varchar2 Default 'A') IS
  MYFILE TEXT_IO.FILE_TYPE;
BEGIN	
  MYFILE := TEXT_IO.FOPEN(Arq, Tipo);  
  TEXT_IO.PUTF(MYFILE,ExportText ); 
  TEXT_IO.FCLOSE(MYFILE);
END;