PC Toledo

A impressora é uma HP Laserjet 1320, a impressão funciona normalmante tanto via Windows quanto via DOS, confirmei na configuração da impressora e está ativado o spool.

Me parece que a impressão não foi descarregada para o Spool, visto que a função PrintFile está retornando um valor .F., o estranho ...

Executei a função WAIPError apenas uma vez.

Tenho uma impressora default, já fiz um teste colocando o nome da impressora, porém também não funcionou, testei também colocando o caminho da impressora e também não funcionou, esqueci de mencionar estou utilizando Windows XP e a impressora está em rede ...

Maligno, fiz o teste conforme sua orientação, colocando o caminho completo e continuou com problema coloquei o WAPIERROR e o resultado foi 0 (muito estranho pois pelo WAPI.H 0 = sucesso) mas a impressão não sai de forma alguma.

Fiz um outro teste e omiti o parâmetro #, deixando o comando assim ...

Estou testando a WAPI para imprimir e não estou conseguindo, fiz o seguinte PRG de teste:

if PrintFile("#","IMP.TXT","Teste")
@ 10,10 say 'Impressao OK'
else
@ 10,10 say 'Erro na impressao'
endif
inkey(0)

Na execução deste programa só aparece ERRO NA IMPRESSÃO ou seja algo esta dando errado ...

Algum colega teria como me mandar as 2 libs CT.lib e CTP.lib pro meu e-mail adriano-rf@bol.com.br

Grato.

Adriano

Caro colega, verifique sua rotina e acho que tem 2 problemas.

1° Problema:
nHandle := fcreate ("cArquivo", FC_NORMAL)

Esta linha irá criar um arquivo com o nome CARQUIVO, o correto seria

nHandle := fcreate (cArquivo, FC_NORMAL)

2° Problema
while ( CODCLI >= cCliente .and. CODCLI ...

Caros Amigos, sim AMIGOS, neste fórum encontrei muitos amigos, amigos que dividem seus problemas, que compartilham soluções e que sempre partem em auxílio aqueles que se encontram em dificuldades.

Desejos a todos os Amigos um Feliz Natal e um Ano Novo Repleto de realizações.

E que com a nossa o ...

Caro colega,

Eu tenho o HELP do DOS ele é bem detalhado, se interessar me manda o seu e-mail que eu lhe envio.

Valeu Rochinha.

Tem muita coisa boa nestes links.

Manda para mim também

adriano-rf@ibest.com.br

Na hora de geral o arquivo XLS faça com que o seu programa antes do código tenha um espaço em branco, por exemplo:

Se o seu programa estiver assim:

@ l,c say codigo

Ficará assim:

@ l,c say " " + codigo

Valeu Marini.

O mesmo sistema utilizando Clipper 5.2E + RTlink funciona normalmente.

:?:

Conforme e-mail que eu lhe enviei a compilação funcionou mas a execução do sistema apresentou o seguinte erro.

$
$BLX286 : line 22 in $FIC_INIC$
$
BLX286 : 1313 : exception error 0D : general protection fault, code = B800h

Active host is DPMI (v4.10 iP6 65535 Kb)

Reg Value Limit Base Flags ...

Caros amigos,

Estive por muito tempo longe da programação comercial, porém agora estou trabalhando por conta e estou sem base de quanto cobrar por um sistema, alguém pode me dar uma ajuda, o sistema que estopu desenvolvendo são os seguintes:

1. Sistema de Contas a Pagar e Receber, multiusuário e ...

Caro amigo Marini,

Obrigado pela atenção dispensada, eu já lhe enviei um e-mail com os scripts, verifique no que você pode me ajudar.

Grato.

Adriano.