Dos_Prn não consigo imprimir...SOCORRO

[Ricardo Sales Ribeiro]

Ola Amigos Tudo Bem!


Continuo com problemas de impressão na Impressora Hp Deskjet 3500 Séries Pora USB.

Baixei o programa Dos_Prn.Exe e não sei como funiona, um amigo do forum me deu algumas dicas más não consegui ainda imprimir. Segue abaixo meu código fonte para que alguem possa me dizer onde estar errado.

Eu gero um arquivo .TXT válido, porque eu verifico com edit e ele estar certinho, só não consigo mandar para impressora.

Por favor alguem pode me ajudar, estou num cliente, e só falta os relatorios para fechar o sisteminha.

De pronto agradeço a ajuda.

Um forte abraço
Ricardo Sales Ribeiro
Fortaleza-Ce

Mensagem('Aguarde! Imprimindo Relatorio ...')
Set Curs Off
wPag:=0
wBak:='ArqTem'+Substr(Time(),07,02)+'.Txt'
Set Devi To Prin
Set Printer To &wBak
@ Prow(),00 Say Chr(27)+"(s16.67'H"
Sele 2
Do while !Eof()
wPag:=wPag+1
@ 01,001 Say wEmp
@ 01,060 Say 'SISTEMA FINANCEIRO - SISFIN'
@ 01,118 Say 'por RSR INFORMATICA'
@ 03,001 Say 'RELATORIO FORNECEDORES ORDEM ALFABETICA'
@ 03,092 Say 'Emissao:'
@ 03,101 Say DATE()
@ 03,125 Say 'Pagina:'
@ 03,133 Say WPAG PICT '9999'
@ 04,001 Say REPLICATE('-',136)
@ 05,001 Say 'CODIGO'
@ 05,010 Say 'NOME DO FORNECEDOR'
@ 06,001 Say REPLICATE('-',136)
wl:=06
Do while wl < 59
wCodFor1:=wCodFor2:=Space(06)
wNomFor1:=wNomFor2:=Space(50)
Sele 2
wCodFor1:=CodFor
wNomFor1:=NomFor
DbSkip()
Sele 3
wCodFor2:=CodFor
wNomFor2:=NomFor
@ wl,001 Say wCodFor1
@ wl,010 Say wNomFor1
@ wl,070 Say wCodFor2
@ wl,080 Say wNomFor2
wl:=wl+1
DbSkip()
If Eof()
wl:=65
Loop
Endif
Enddo
Enddo
Eject
Set Devi To Scre
DbCloseAll()
Comando:='Dos_Prn.Exe/Raw'+wBak
RUN &Comando
Rest Scre From Financ26
Retu

[Dudu_XBase]

se vc rodar o programa na unha...ir la no dos e digitar

dos_prn.exe /Raw seuarquiv.txt

ele imprime ??

Caso imprimir....

mas olha q eu vi tb no seu código postado...
Comando:='Dos_Prn.Exe/Raw'+wBak
Tudo junto "Dos_prn.exe/Raw+wBak" ...naum tem q ter espaços...tipo..
Comando := "Dos_prn.exe /Raw "+wBak

Qdo o programa roda o comando Run ele aloca memória convencional...se naum tiver espaço livre suficiente....ele não executa....

[tonyx]

ja mandei a tal rotina para voce FUNCIONANDO

[kenew]

Só uma observação eu tambem uso o DOS_PRN agora, mas quando eu uso o parametro /RAW ele não imprimi, sem este parametro imprimi normal, eu testei em uma LEXMARK com porta USB.

[Ricardo Sales Ribeiro]

Amigos Clipeiros!


Ainda não consegui imprimir pelo Dos_Prn.exe via programa, ou seja, na unha como diz um amigo eu consegui imprimir, mas não consegui compactar.
Talves não tenha usado os caracteres corretos da Hp deskjet 3550, alguem sabe os caracteres de controle para impressão comprimida.

Dentro da minha rotina, simplesmente não funciona.

Outra coisa, na unha só imprimiu sem o /Raw
Na primeira folha sai impresso no lado tipo uma propaganda dizendo ´DOSPrinter DEMO by Alternet, bojan.banko@pu.htnet.hr.
Como tirar esta impressão.

Gostaria de mais ajuda.

Um forte abraço

[Dudu_XBase]

Eu imprimo sem problemas uso blinker 7 + clipper 5.2e , programa em memória extendida, naum chamo pelo run usa uma função do blinker...

swpruncmd("dos_prn.exe meuarquivo.txt")

Uso os códigos da Epson pois pelo q sei ele tb interpreta os comandos pcl da Epson, e ele imprime normalmente, negritado, italico....

[Trazom]

aproveitando:

os mesmos codigos de compressao, expandido, usados para matricial podem ser usados em outros tipos de impressora ?

[Dudu_XBase]

bom eu uso os msm, no meu sistema...eu coloquei para o usuário definir a impressora...além dos tipos mais usados...inseri um nome genérico tipo impressora Windows....qdo a impressora é Windows....rs...uso o dos_prn....mandando os comandos da Epson...

[Ricardo Sales Ribeiro]

Pessoal tudo bem!


Ainda não consegui imprimir de dentro do meu programa. Simplesmente não dar erro, é como se ficasse perdido na memória.
Já consegui compactar usando comandos básicos da impressora Epson matricial, más na unha, direto o comando no dos.

Amigo Dudu_XBase, como conseguir o Blinker 7 e como compilar meu programa com esta ferramenta. Desde então só tenho usado o Clipper52 e RTlink, por favor gostaria de tentar usando a sua ideia , acho que o problema é memória extendida, não sei como configurar memória extendida, vc poderia me ajudar.

Estou precisando tb de uma rotina para várias impressoras, e como colocar no meu programa, como direciono e como uso os caracteres de controle, já que cada impressora tem seus caracteres.

Alguem poderia me mandar tb uma copia do Dos_Prn.Exe, a minha pode ser demo, já que aparece uma mensagem na impressão do meu relatorio que imprimi via comando direto no Dos.

Aguardo notícias, estou inquieto por não ter conseguido ainda resolver meu problema

Um forte abraço
Ricardo Sales
Fortaleza-Ce

[vagucs]

Use o PRWIN 3.0, ele não precisa de dar o RUN no final do relatório, interpreta comandos de impressora de forma genérica, assim os comandos de impressoras epson, hp, funcionam em qualquer impressora, permite ainda que você possa cadastrar comandos de impressora para que ele possa interpretar, permite a impressão de BMP´s, e de 10 padrões diferentes de código de barras.