smitht3863 said:
I'm using [FONT=r_ansi]PROGRESS Procedure Editor [/FONT][FONT=r_ansi]Version 8.3B. I have a file with my printer setup and barcode information for a Eltron printer. I'm trying to print to a local printer. I want to use the put stream or any other statement that will print a label from the file I'm using. This is the beginning data in the file. [/FONT]
[FONT=r_ansi][/FONT]
[FONT=r_ansi]N
OD10
q812
Q1218,24
D15
ZT
[/FONT]
Caro colega,
Abaixo a linha de programa para impressão direto no computador local, onde gera-se um arquivo e depois executa o comando COPY, copiando o arquivo para a porta da impressora
DEF VAR cItCodigo AS CHAR NO-UNDO.
DEF VAR cLocaliz AS CHAR NO-UNDO.
OUTPUT TO VALUE('c:\temp\etiqueta.txt').
PUT UNFORMATTED
'' SKIP
'ON,D' SKIP
'Q1144,32' SKIP
'q800' SKIP
'S2' SKIP
'D7' SKIP
'ZT' SKIP
'JF' SKIP
'' SKIP
'N' SKIP
'X0000,0010,3,0750,1130' SKIP
'' SKIP
'A0010,0029,0,4,1,1,N,"DENSO - Sistemas Termicos do Brasil Ltda"' SKIP
'LO0000,0060,0750,0002' SKIP
'A0010,0069,0,3,1,1,N," CODIGO"' SKIP
'LO0000,0090,0750,0002' SKIP
'A0005,0100,0,5,1,2,N,"' cItCodigo '"' SKIP
'LO0000,0200,0750,0002' SKIP
'A0010,0209,0,3,1,1,N," LOCALIZACAO"' SKIP
'LO0000,0230,0750,0002' SKIP
'A0005,0235,0,5,1,2,N,"' cLocaliz '"' SKIP
'' SKIP
'LO0400,0340,0003,0420' SKIP
'LO0340,0760,0003,0260' SKIP
'' SKIP
'P1' SKIP.
OUTPUT CLOSE.
OS-COMMAND SILENT COPY /b VALUE('c:\temp\etiqueta.txt') VALUE("LPT1").
