PC Toledo

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

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

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.

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

Experimente, é batata !

Ou manda pro spooler.

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?

Sergio Cabral escreveu: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.

Sergio Cabral escreveu: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").

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).

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)

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.

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

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.

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

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