Página 4 de 4
Comando de impressão de arquivo.
Enviado: 03 Abr 2013 11:53
por Duda 'Sgluber'
asimoes escreveu:Duda,
O seu teste inicial funcionou também aqui comigo, usando as seguintes impressoras:
Ricoh AF-2050 e LexMark T-654
[]´s
É o tipo de informação
muito bem-vinda para quem estiver lendo este tópico no futuro, especialmente pq cita duas marcas/modelos q não são da HP. Eu nunca testei em outras impressoras q não fossem da própria HP.
Muito obrigado pelo retorno,
asimoes!
Comando de impressão de arquivo.
Enviado: 04 Jun 2015 17:16
por microvolution
prezados senhores,
estou enfrentando alguns problemas, pois desde 01/06/15 que descobri que a impressão tradicional SET PRINTER TO LPT1 não funciona com os programas externos DOS2USB, DOSPRN, etc nem se tiver impressora matricial, não imprime...
aí falei, basta! tem que ter algo nativo que imprima em qualquer tipo de impressora.
Aí achei o WINPRINTFILERAW().
Estou conseguindo imprimir nele, a princípio a impressora que estou testando é HP C4280 em USB, só que a impressão não está saindo correta.
Está tudo do mesmo tamanho, e os ESC (CHR 27 + W, 15, 18, 0, 1,etc....) não estão sendo aplicados.
Alguém aqui sabe uma solução?
Comando de impressão de arquivo.
Enviado: 04 Jun 2015 20:25
por asimoes
Você tem que ver o manual da impressora e usar comandos equivalentes PCL
Comando de impressão de arquivo.
Enviado: 04 Jun 2015 22:01
por microvolution
asimoes escreveu:Você tem que ver o manual da impressora e usar comandos equivalentes PCL
Amigo asimoes, como é esse PCL comandos equivalentes?
Outra coisa, como no cliente final (possível que eu vender meu aplicativo) seria a impressora dele, então tem que ser algo genérico a todas as impressoras e nativo no windows e sistema.
É possível?
Comando de impressão de arquivo.
Enviado: 04 Jun 2015 23:11
por asimoes
Primeiro de tudo o seu sistema tem que saber ou perguntar ao usuário para qual impressora ele está direcionando a impressão.
Se for uma matricial, a impressão será da mesma forma Chr(15) etc...
O WinPrintFileRaw pode ser usado nos 2 casos.
Um pequeno exemplo usando PCL
Agora é só testar.
Código: Selecionar todos
SET CONSOLE OFF
SET DEVICE TO PRINT
SET PRINTER TO TESTE.TXT
SET PRINT ON
SetImp(.T.)
@ PROW()+1,000 SAY "TESTE USANDO PCL"
SET PRINT OFF
SET PRINTER TO
SET DEVICE TO SCREEN
FUNCTION SetImp(lCompacta,lLandScape)
HB_Default(@lCompacta,.F.)
HB_Default(@lLandScape,.F.)
* Informações:
* @ 00,00 SAY CHR(27)+'%0A' --> Substitui o SetPrc(00,00)
@ PROW(), PCOL() SAY CHR(27)+"E"
IF lLandScape
@ PROW(), PCOL() SAY CHR(27)+"&l1O"
ENDIF
IF lCompacta
cPclTamanho := "18"
ELSE
cPclTamanho := "10"
ENDIF
@ PROW(), PCOL() SAY CHR(27)+"%0A"
@ PROW(), PCOL() SAY CHR(27)+"(12U"
@ PROW(), PCOL() SAY CHR(27)+"(s0p"+cPclTamanho+"h0s0b4102T"
SetPrc(0,0)
RETURN .T.
Comando de impressão de arquivo.
Enviado: 05 Jun 2015 00:03
por microvolution
asimoes escreveu:Primeiro de tudo o seu sistema tem que saber ou perguntar ao usuário para qual impressora ele está direcionando a impressão.
Se for uma matricial, a impressão será da mesma forma Chr(15) etc...
O WinPrintFileRaw pode ser usado nos 2 casos.
Um pequeno exemplo usando PCL
Agora é só testar.
Prezado asimoes, testei seu exemplo.
ele gerou um .TXT com as seguintes linhas:
Bom, e, aí, o que fazer com esse TESTE.TXT?
Comando de impressão de arquivo.
Enviado: 05 Jun 2015 09:21
por asimoes
Supondo que você vai fazer o teste na sua impressora padrão:
Depois do SET PRINTER TO
WIN_PrintFileRaw(WIN_PrinterGetDefault(),"TESTE.TXT",''Impressão: PrintFileRaw')
Comando de impressão de arquivo.
Enviado: 05 Jun 2015 10:46
por microvolution
asimoes escreveu:Supondo que você vai fazer o teste na sua impressora padrão:
Depois do SET PRINTER TO
WIN_PrintFileRaw(WIN_PrinterGetDefault(),"TESTE.TXT",''Impressão: PrintFileRaw')
Bom dia "asimoes"!
O resultado foi o seguinte:
1 - a impressora puxa o papel imediatamente após o PRINTFILERAW, mas, fica no display a frase "imprimindo..."
2 - após um bom tempo, ela faz um outro barulho "curto" como se começasse a imprimir... mas nada sai, o papel continua agarrado.
3 - depois de outro tempo ela faz outro barulho e o papel continua agarrado;
4 - sou obrigado a pressionar o botão "cancelar" e aí o papel sai sem nada impresso.
5 - pra tirar a dúvida da primeira tentativa q ficou nos mesmos moldes dos itens 1 a 4 acima, eu fiz uma alteração no seu código para que houvessem mais linhas de impressão, ao todo coloquei 5 linhas de texto a serem impressas e infelizmente, deu o mesmo resultado dos passos 1 a 4.
Enfim, o que V.Sa. pode concluir com o resultado?
Comando de impressão de arquivo.
Enviado: 22 Fev 2016 13:40
por rochinha
Amiguinhos,
Onde está o site
Harbour Online Help do Pritpal Bedi?
Comando de impressão de arquivo.
Enviado: 22 Fev 2016 13:59
por asimoes
Rochinha, parece que foi hackeado
Comando de impressão de arquivo.
Enviado: 22 Fev 2016 16:39
por rochinha
Amiguinhos,
Rochinha, parece que foi hackeado
Que droga, era sem duvida o mais completo, pois mostrava o código fonte de cada função, qual biblioteca fazia parte, etc.
Mandei uma mensagem via Facebook para o Pritpal Bedi, e quem sabe ele nos dá uma resposta.