Cliiper no XP imprimir direto na impressora padrao

[Arthur G Cabral]

tenho um sisntema em clipper que funciona beleza no 98 mas tenho de colocar em uma maquina com XP mas quando coloco os relatorios que envio fica preso e so sai quando saio do sistema
alguem pode me dar uma ajuda

é um sistema de restaurante que emite impressão direto (parcisl, pedido, etc)

antecipadamente agradeço

[sygecom]

https://pctoledo.org/forum/viewtopic.php?t=7163

[sygecom]

E se der uma procurada aqui no forum verá que isso já foi mais do que discutido, mas se mesmo assim tiver problemas e não conseguir resolver, post um exemplo de como vc faz para imprimir que agente lhe dah uma luz...

Abraços
Leonardo Machado

[rochinha]

Amiguinho

Provavelmente voce usa uma 40 colunas, faça a impressão para arquivo, use SET PRINTER TO no final e cuspa(cuspa=envie, imprima, mande, jogue, não vá cuspir na impressora!) o arquivo na impressora com um RUN COPY arquivo LPT1.

Desta forma enquanto a impressora estiver imprimindo o arquivo seu programa ja estara livre para uso.

[Pablo César]

Isso mesmo, foi o que eu exemplifiquei em https://pctoledo.org/forum/viewto ... 8008#38008

Experimente, é batata !

[Maligno]

Ou manda pro spooler.

[Sergio Cabral]

E quando se trata de um sistema para supermercados que a impressao deve ser no ato que o produto é lançado?
E quando não tem memoria para executar o RUN?

[Pablo César]

E quando se trata de um sistema para supermercados que a impressao deve ser no ato que o produto é lançado?

Nesse caso eu faria um boot especial para cada terminal, de preferência com WIN98, sem carregar o WINDOWS, mas incluindo os driver de rede.

E quando não tem memoria para executar o RUN?

Eis o BLINKER... E caso a impressora não seja USB, para quê usar aplicativo externo ? Sendo que pode ser usado o COPY FILE("ARQUIVO.PRN") TO ("LPT1").

[Sergio Cabral]

No inicio do topico estavamos falando de XP e não de Win98(mesmo sendo impressão em impressora não USB).
E para quem usa Clipper 5.01 não dá para usar Blinker (se for falar para mudar para 5.2 prefiro optar pela linguagem Windows, mas ainda quero continuar usando Clipper 5.01).

[Adalberto]

Sergio,

¿Passar de clipper 5.1 para clipper 5.2 não e só compilar?, em quanto a lentidão da impressora pode testar o seguinte:
Faz o que diz Pablo César no post e link (5 de dez ) e execute script abaixo:

(Este script e ajuda e colaboração deste foro, Obrigado)
Vá para o Botão INICIAR
Selecione EXECUTAR
e digite REGEDIT
SELECIONE AS OPCOES
KHEY_LOCAL_MACHINE
SYSTEM
CURRENTCONTROLSET
CONTROL
WOW
AGORA DO LADO DIREITO DA JANELA
SELECIONE LPT_TIMEOUT
ALTERE DE 15 PARA 0 ou 1 (zero 0 um)

[Sergio Cabral]

Agradeço a ajuda mas isso que foi sugerido eu já tentei e não funcionou.
Mas valeu pela tentativa. O XP é mesmo um entrave.

[Gilberto M Silva]

FUNC KITPRINT
SET CONSOLE ON
SET PRINTER TO
set device to screen
NETCANCEL("LPT1")
TONE(200,1)
TONE(500,1)
@ 22,25 SAY "FIM DA LISTAGEM"
RETURN
**********
FUNC KITIMPRI
NETREDIR("LPT1")
SET DEVICE TO PRINT
SET PRINT TO LPT1
RETURN .T.
Caro Sergio, tenho um sistema em um mercado q faz que faz exatamente o que vc quer:
Ex:
O usuário passa o ítem
@ Say Código ...
....
KITIMPRI() FUNÇÃO PARA ABRIR IMPRESSORA
Imprimi o item
@ Prow(),01,01 Say codigo pict ... etc
.
.
.
KITPRINT() Fecha impressora
e volta para ler outro item. E assim por diante.

Se não entendeu poste que passo pra vc uma função completa com faço aqui.
Feliz Natal e pr´sopero Ano novo pra todos :)Pos

[Gilberto M Silva]

Quanto vc mudar de 5.1 para 5.2 é só baixar na página do Maligno o 5.2 e mudar o seu arquivo BAT que Linka os prgs o caminho onde está os arquivos do Clip5.2 que funciona sem precisar vc mudar nada.

[Arthur G Cabral]

para todos obrigado pela atenção e a ajuda

funcionou beleza a alteração do registro LPT_TIMEOUT para 1
tem de se verificar todas LPT_TIMEOUT pois tem sempre mas de uma é melhor ir pela localização do regedit

mas precisou de uma linha de comando quando se trata de XP é

#INCLUDE 'inkey.ch'
Ol_AutoYield( .T. )

no incicio do seu sistema pois isto evita que o seu sistema fique ocupando 100% do processador da maquina e ela fique parecendo travada

[Arthur G Cabral]

amigo comigo funcionou veja ai como

funcionou beleza a alteração do registro LPT_TIMEOUT para 1
tem de se verificar todas LPT_TIMEOUT pois tem sempre mas de uma é melhor ir pela localização do regedit

mas precisou de uma linha de comando quando se trata de XP é

#INCLUDE 'inkey.ch'
Ol_AutoYield( .T. )

no incicio do seu sistema pois isto evita que o seu sistema fique ocupando 100% do processador da maquina e ela fique parecendo travada