PC Toledo

Eu consigo capturar a porta lpt1 no Windows XP através do commando:
"net use lpt1: \\ana\\epson". A impressora funciona na primeira vez que mando imprimir mas na segunda ou terceira - é intermitente-, para de funcionar e eu tenho que sair do meu programa e começar outra vez para que funcione novamente. Também aparece a caixa de erro Printer erro ("Quit" or "Retry") o que às vezes funciona com retry.

O Windows é o XP pro e a impressora Laserjet HP 1010.

Como posso fazer para imprimir sem ter que ficar entrando e saindo do programa?

Meu prg é compilado em Clipper 5.1d e uso Rtlink

Caro colega, bom dia!

Não sei se vai resolver por completo, mas, entre no registro do windows (regedt) e procure por LPT_TIMEOUT e coloque em "Dados do Valor" o valor "1".

Boa sorte

Edson

Esqueci de mencionar:

As vezes pode existir mais de um argumento "LPT_TIMEOUT", portanto, procure com o "F3" por todos.

Edson

local OldSet := Set(SET_DEFAULT, "")
...
SET PRINTER TO LPT1
SET DEVICE TO PRINTER
SET CONSOLE OFF
print ....

SET CONSOLE ON
SET DEVICE TO SCREEN
SET PRINTER TO LPT3
SET PRINTER TO LPT2
SET PRINTER TO LPT1
SET PRINTER TO
Set(SET_DEFAULT, OldSet)

No XP sistemas que nao estão com freetslice prendem o processador e toma ele e nao deixam tempo de execução suficiente para a impressão continuar, para ver se este é o caso, quando a impressora travar pressione a tecla "PAUSE" para pausar seu sistema, isto libera totalmente a CPU para os processos em back mas para seu sistema e depois é só pressionar uma tecla para tudo voltar ao normal, se a impressão continuar rapidinho, link a freetslice ao seu sistema, se não, o problema tem as soluções apresentadas acima.