impressao em rede

[PITERGALDIANO]

tenho um sistema que faz impressoes em rede através do comando

type nomearquivo To Printer
´
a rede é configurada assim

net use lpt1 \\computador\impressora

só que a impressão só vai quando saio do sistema


o que pode ser

obrigado

[alaminojunior]

Olá meu caro, coloque depois das linhas:

SET PRINTER TO
SET DEVICE TO SCREEN

o seguinte:

PrCommit()

FUNCTION PRCOMMIT
local cPrinter := set( _SET_PRINTFILE, "LPT3" )
set( _SET_PRINTFILE, "LPT2" )
set( _SET_PRINTFILE, "LPT1" )
set( _SET_PRINTFILE, "" )

// restores the original printer-port!
set(_SET_PRINTFILE, cPrinter, .t.)