demora para começar a imprimir na usb

[porter]

ola pessoal, estou testando essa pequena rotina para impressao na jato de tinta via PRWIN, mas a impressao só comeca se fechar o programa, se nao fechar, nao imprime, a impressora ate aparece la ao lado do relogio que mostra que foi enviado para a impressora, tem algo nessa rotina que devo acrescer para comecar imprimir rapidamente ?

Código: Selecionar todos

emitir = "S"
clear
do while .t.
    @10,10 say "emitir" get emitir pict "@!"
    read
    if emitir <> "S"
       exit
    endif
    imprime()
enddo

procedure imprime
setprc(0,0)
set device to print
set printer on
set printer to c:\jato\teste.txt
setprc(0,0)
@0,0 say "$IMP$=2";
@1,0 SAY "TESTE"
SET PRINTER TO
SET PRINTER OFF
RETURN

Estou imprimindo na USB, e o windows é o XP, obrigado.

[Duda 'Sgluber']

porter,

já lidei com esse problema algumas vezes e a melhor solução q encontrei foi utilizar a WAPI do nosso amigo Maligno.

Para mais informações, dê uma olhada nesta mensagem q eu postei tempos atrás, neste tópico.

[Pablo César]

Porter está gerando o arquivo essa sua rotina ? Pois eu acho que a sequência certa é:

Código: Selecionar todos

SET PRINTER TO ("c:\jato\teste.txt")
SET DEVICE TO PRINT
@ SAY...
@ SAY...
SET DEVICE TO SCREEN
SET PRINTER TO

E no Clipper não imprime em USB a não ser mediante utilitário externo, normalmente feitos em Harbour ou outra linguagem. Mas a idéia é como o colega já passou: criar arquivo de impressão e mandá-lo para o spooler do Windows.

[porter]

ola Duda e Pablo, a rotina esta gerando um arquivo texto normalmente e estou usando o PrWin para imprimir na Usb, quanto ao WAPI do Maligno, vou dar uma olhada para conhecer melhor, obrigado.

[DARIOAH]

Hola, Aclaremos que el Clipper SI imprime a travez de USB. siempre y cuando este compartida la impresora en windows, y capturado el puerto a travez del NET USE.

[Duda 'Sgluber']

Hola, Aclaremos que el Clipper SI imprime a travez de USB. siempre y cuando este compartida la impresora en windows, y capturado el puerto a travez del NET USE.

Bem-vindo à nossa comunidade, DARIOAH!

Mapear impressoras via NET USE não funciona em 100% dos casos, motivo pelo qual existem outras sugestões para imprimir em Clipper via porta USB.