Impressão do Clipper em porta USB.

L&F Informatica · Mensagem por **L&F Informatica** » 19 Abr 2007 15:11

Alguem poderia me informar como faço para imprimir os meus relatorios em uma impressora USB? Meu sistema é desenvolvido em clipper e não sei como faço para mandar a impressão para uma porta USB. Se alguem poder me ajudar.

Desde ja agradeço.

Fernando.

Mensagem por **sygecom** » 19 Abr 2007 15:18

Bem vindo ao Forum....
Tche, de uma pesquisada aqui no forum que vc vai achar diversas soluções.....eu particularmente uso nos meus sistemas em clipper o PRWIN ....mas vc pode ver algo em xharbour tb.

Abraços

tonyx · Mensagem por **tonyx** » 19 Abr 2007 15:30

1- se impressora for hp 3500 cabo usb - usa-se
RUN DOS_PRN.EXE /RAW ARQUIVO

2 - SE IMPRESSORA LASER 1020
gravo em TIPO RTF COMO ARQ.DOC e depois
run START ARQ.DOC
**** VAI PARA O WINWORD DIRETO E DE LA IMPREME EM QUQLQUE IMPRESSORA OU ANEXA NO EMAIL DO WINWORD ***
----- APOS FECHA O WINWORD E RETORNA PARA O SISTEMA ***

L&F Informatica · Mensagem por **L&F Informatica** » 19 Abr 2007 16:23

tonyx escreveu:1- se impressora for hp 3500 cabo usb - usa-se
RUN DOS_PRN.EXE /RAW ARQUIVO

2 - SE IMPRESSORA LASER 1020
gravo em TIPO RTF COMO ARQ.DOC e depois
run START ARQ.DOC
**** VAI PARA O WINWORD DIRETO E DE LA IMPREME EM QUQLQUE IMPRESSORA OU ANEXA NO EMAIL DO WINWORD ***
----- APOS FECHA O WINWORD E RETORNA PARA O SISTEMA ***

Poderia me mandar um exemplo de como fazer isso?

L&F Informatica · Mensagem por **L&F Informatica** » 19 Abr 2007 16:24

sygecom escreveu:Bem vindo ao Forum....
Tche, de uma pesquisada aqui no forum que vc vai achar diversas soluções.....eu particularmente uso nos meus sistemas em clipper o PRWIN ....mas vc pode ver algo em xharbour tb.

Abraços

Como faço para usar o PRWIN? é um Programa?

Mensagem por **sygecom** » 19 Abr 2007 16:30

Tche, vc usa o BLINKER ? se sim vc pode usar a SWPRUNCMD("DOS_PRN.EXE /RAW ARQUIVO") para enviar ! de uma olhada tb. no link abaixo..

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

Abraços

Pablo César · Mensagem por **Pablo César** » 19 Abr 2007 17:13

L&F Informatica,

Existe outras soluções a que eu conheço e gosto são:

- WAPI do MALIGNO aqui o link para baixá-lo: http://buzinello.com/download/wapi.zip a função do WAPI que imprime é -PRINT, mas este download, você irá encontrar toda a documentação que fala sobre o WAPI, inclusive tem muitas outras funções que utilizam-se da API do proprio WINDOWS. Você poderá ver quais são as ipressoras instaladas, qual é a padrão, e muitas outras funções de importância. Você poderá usar o WAPI.EXE na linha de comando ou a biblioteca WAPI.LIB para compilar com Clipper.

- USB do Heveraldo aqui o link para baixá-lo: Aqui este aplicativo que também tem o recurso de imprimir condensado, expandido, normal (diria em todas as impressoras), porque trabalha com TAGS

Boa sorte, Fernando e um clip-abraço :)Pos

Mensagem por **Maligno** » 21 Abr 2007 00:55

Pablo César escreveu:- WAPI do MALIGNO aqui o link para baixá-lo: http://buzinello.com/download/wapi.zip a função do WAPI que imprime é -PRINT, mas este download, você irá encontrar toda a documentação que fala sobre o WAPI, inclusive tem muitas outras funções que utilizam-se da API do proprio WINDOWS. Você poderá ver quais são as ipressoras instaladas, qual é a padrão, e muitas outras funções de importância. Você poderá usar o WAPI.EXE na linha de comando ou a biblioteca WAPI.LIB para compilar com Clipper.

Só quero deixar duas lembranças: primeiro que o WAPI imprime apenas no modo RAW. Sem qualquer tratamento, o conteúdo do arquivo é enviado para o spooler. E segundo que é muito melhor usar a função de abstração PrintFile() da biblioteca Clipper, o que facilita o trabalho mais ainda. Detalhes no README.

[]'s
Maligno
http://www.buzinello.com/prg

Pablo César · Mensagem por **Pablo César** » 23 Abr 2007 18:56

Oi Fernando,

Ja resolveu seu caso ? Como foi ?. Testou as opções que eu te indiquei ?.

O aplicativo USB.EXE do Heveraldo, você só precisa gerar o arquivo de impressão e colocar as TAGS [NEGRITO], [EXPANDIDO], [NORMAL], ou você mesmo pode mudar a instrução-de-tag.

Deixe-nos saber como você resolveu.

L&F Informatica · Mensagem por **L&F Informatica** » 24 Abr 2007 08:43

Ainda não resolvi. Estou testando o Pr-Win. Só que tem que fazer alguns ajustes que eu ainda não consegui entender.

Fernando Borges.

Netavin · Mensagem por **Netavin** » 24 Abr 2007 08:52

Olá Pablo !
Colega, eu uso já faz tempo o USB para meus relatórios. Porém nunca precisei formatar texto. Mas chegou o momento.
Então, como é que se faz isso. Você disse que usa [NEGRITO] por exemplo. Mas isso é na linha de comando ? Pode fazer uma linha de xemplo, por favor ?

[]´s

Netavin.

Pablo César · Mensagem por **Pablo César** » 24 Abr 2007 10:13

L&F Informatica escreveu:Ainda não resolvi. Estou testando o Pr-Win.

Fernando... Você deve estar com o PR-WIN versão 1.0 do Wagner, certo ?. Bem, pelo que eu entendo, você irá precisar fazer a impressão com CONDENSADO,NEGRITO, etc... Então eu acho, que você não está no caminho certo com o PR-WIN. Uma porque esta versão EVIDENTEMENTE não tem os recursos que a mais nova tem (e ainda que não é grátis) e outra porque ví na página do Wagner, que explica que em impressoras USB não dá para fazer esse comandos de tipos de letras (posso estar equivocado) mas sabendo que existe outro aplicativo, como eu estava te dizendo... por quê não tentar

?

Netavin escreveu:Porém nunca precisei formatar texto. Mas chegou o momento. Então, como é que se faz isso. Você disse que usa [NEGRITO] por exemplo. Mas isso é na linha de comando ? Pode fazer uma linha de xemplo, por favor ?

Bem eu acho que não tem muito segredo nisso. Veja na minha mensagem que diz que é necessário GERAR o arquivo de impressão, acho que até aí isso nós sabemos que é primordial.

Se você executar sem parâmetro algum o USB.EXE, ele irá abrir uma janela onde você configurará as suas TAGS. Dando-lhe os nomes as TAGs e definindo o tamanho em cpi dos caracteres (tamanho das letras). Não sei se na configuração do seu USB.EXE estiver assim:

"[NORMAL]" Imprime caractere com fonte normal tamanho: 12
"[COMPRIMIDO]" Imprime caractere com fonte comprimida tamanho: 8
...//... e assim por diante...

Bem o nome da TAG é "[NORMAL]", e é isto que você tem que por na primeira coluna do seu texto para que faça no tamanho 12 cpi

É so colocar a string [NORMAL] para que o USB.EXE entenda que isto será subtituido pelo comando correto (de acordo a impressora instalada no Windows) que a impressora precisa para imprimir esse tipo de letra.
Eu acho que ainda não é possível... é fazer duas formatações na mesma linha.

Agora mudando um pouco basntante... ja viram o tópico sobre:

https://pctoledo.org/forum/viewto ... rinter+exe

Vale apenas ver o PRINTER.EXE que faz impressão gráfica, eu achei muito bom. Poderia ser melhor... mas ja pensou imprimir de forma gráfica direto no Clipper (no ambiente non-GUI, quero dizer).

Um clip-abraço :)Pos

L&F Informatica · Mensagem por **L&F Informatica** » 24 Abr 2007 11:33

E onde eu consigo esse USB.EXE? No meu relatorio tenho que gerar para arquivo? Não tem como imprimir direto?

Obrigado pela Atenção.

Fernando.

Pablo César · Mensagem por **Pablo César** » 24 Abr 2007 11:37

Fernandiiitooo, pelo jeito você não leu a minha mensagem....

baixá-lo: http://www.sistemabr3.cjb.net/ ...

L&F Informatica · Mensagem por **L&F Informatica** » 28 Abr 2007 08:29

Pessoal, não estou conseguindo fazer com que funcione dentro do meu sistema. Vou descreve-lo abaixo para que voces possam em ajudar. É uma rotina para impressão de etiqueta.

MENSAGEM("Aguarde abertura de arquivos")
SELE 5
IF .NOT. USEREDE("ARQESTQ",.F.,10)
BEEP()
MENSAGEM("O arquivo ARQESTQ n„o est dispon¡vel",3)
RETURN
ELSE
SET INDEX TO ARQES006,ARQES007,ARQES008
ENDIF
MENSAGEM("Tecle <ESC> para retornar")
COR("MENU")
@ LIN_MENU,00
@ LIN_MENU,01 SAY "Relat¢rio ³ Etiqueta 89x23 Com Valor"
SELE 5
SET ORDER TO 2
GO TOP
SET CURSOR ON
JANELA( 3, 3,21,77,"Emissão Etiquetas 89 x 23 ")
COR("GETS")
cl=1
merc = space(10)
stor 0 to qtde,tot,total,entra
@ 10,10 say "Grupo..: " get merc pict '@!'
read
if merc = space(10) .or. lastkey() = 27
RESTSCREEN(LIN_MENU+1,00,23,79,TELA_PRI)
RETURN
endif
SEEK MERC
IF ! FOUND()
MENSAGEM("Erro! Grupo Nao Cadastrado!",3)
RETURN
ENDIF
@ 18,((78-29)/2) SAY "Imprimindo Etiquetas. Aguarde !..."
M->TIPO_PRN = "A"
PARA ARQ_PRN
arq_prn="ETIQTA"+".TXT"
arquivo:=alltrim(arq_prn)
Set Cons Off
Set Alternate To &arquivo
Set Alternate On
Set print off
do while .not. eof()
if gru_est=merc
@ cl,00 say chr(18)
@ cl,03 say "Codigo.:"+strzero(cod_est,5,0)
@ cl,30 say "Codigo.:"+strzero(cod_est,5,0)
cl = cl + 2
@ CL,00 say chr(15)
@ cl,01 say subst(des_est,1,32)
@ cl,37 say subst(des_est,1,32)
cl = cl + 1
@ cl,01 say "Valor.:"+str(cus_est,6,2)
@ cl,37 say "Valor.:"+str(cus_est,6,2)
cl = cl + 1
@ cl,01 say "5x de.:"+str(ven_est,6,2)
@ cl,37 say "5x de.:"+str(ven_est,6,2)
cl = cl + 2
endif
skip
ENDDO
total=0
cl = cl + 12
@CL,00 SAY " "
SET DEVI TO SCRE
IF M->TIPO_PRN = "A"
SET PRINTER TO
ENDIF
RESTSCREEN(LIN_MENU+1,00,23,79,TELA_PRI)

Já fiz o teste com o PR-WIN e com o USB, mas não consegui. Com certeza estou fazendo alguma coisa errada. Se alguém puder me ajudar.

Obrigado pela atenção e um Clip abraço a todos.

Fernando Borges.

PC Toledo