Código: Selecionar todos
ulttr := RIGHT(TIME(),2)
sEgtr := RIGHT(TIME(),2)
vArCom1 := 'X' + ulttr + sEgtr + '.TXT'
fIleCom := 'X' + ulttr + sEgtr + '.PRN'
fIleImpr := vArCom1
SET PRINTER TO &fIleImpr.
@ prow(),02 say ....
@ prow(),02 say ....
@ prow(),02 say ....
SET DEVIVE TO SCREEN
SET PRINTER TO
RUN REN &fIleImpr. &fIleCom.
um minuto....
Ja mudei pelo REGEDIT as linhas lpt_timeout = 15 para lpt_timeout = 1 no registro.
Alguem tem alguma sugestão ?
Desde ja, obrigado !


