Página 1 de 1
Saída USB
Enviado: 25 Jan 2006 02:01
por Josmar dos Santos
Caros colegas, sei que ja foi muito discotido esse assunto aqui, mas como eu ja comentei em outras situações, sou iniciante e voces terao que ter paciencia comigo..rs..rs.
Bom, para eu imprimir em usb...eu fiz um atalho no meu sistema, em vez de em mandar para uma impressora eu mando para uma saída de aquivo txt...porém, toda vez que eu mando para esse arquivo, tenho que sair do sistema, abrir o bloco de notas e so assim consigo imprimir..Será que tem algum jeito de eu imprimir esse relatório sem sair do sistema, ou seja, ao desviar para o arquivo, ele ja imprimir direto....Nota...Vale lembrar que tambem consigo criar esses arquivos em extensao prn ...sem mais ..um abraço....Josmar
Saída Usb
Enviado: 25 Jan 2006 02:42
por Josmar dos Santos
Para reforçar esse assunto, queria imprimir do prg...pois tive que fazer um filtro do bloco de notas para imprimir o mesmo...ok ...fuiii
Enviado: 25 Jan 2006 08:06
por hauch
Eu Utilizo o PRWIN do Wagner
té +
Imprimir USB
Enviado: 25 Jan 2006 08:37
por Marcelo Pereira
Eu usei um programa chamado nodosimp encontrado na internet.
Impressão em USB
Enviado: 25 Jan 2006 09:26
por Dércio_Luiz_Zanatta
amiguinho.
Eu tb uso o PRWIN do Wagner. Funciona muito bem.
Para vc imprimir sem sair do programa basta vc chamar o prwin com o comando RUN ou SwPRun(), este último se vc linka com BLINKER.
Um abraço...
Enviado: 25 Jan 2006 10:14
por gvc
Se a sua impressora imprime texto direto, coloque no seu sistema:
SET PRINTER TO USB001 (ou a porta criada para a sua impressora USB).
Enviado: 25 Jan 2006 11:19
por Grings
Posso estar enganado mas se vc colocar Set Printer To USB001 será gerado um arquivo chamado USB001.PRN com o conteúdo do seu relatório. Não seria Set Device To USB001 ? Vou testar...
Enviado: 25 Jan 2006 17:01
por rochinha
Amiguinhos
O SET DEVICE TO e SET DEVICE TO PRINTER apenas fazem uma alteração interna na resposta do comando @...SAY.
Se voce fizer isto:
@ 10,10 SAY 'Sai na tela'
SET DEVICE TO PRINTER
@ 12,10 SAY 'Sai na impressora'
Assim:
SET DEVICE TO PRINTER
@ 10,10 SAY 'Sai na tela'
SET DEVICE TO
@ 12,10 SAY 'Sai na impressora'
Voce verá como funciona o comando.
Para imprimir em USB é melhor usar um aplicativo que trabalhe e, background e capture em algum diretorio a saida de seu impresso no formato .TXT.
Ao final do relatorio repita os comandos de desligamento de impressão:
SET PRINTER TO arquivo.txt
SET DEVICE TO PRINTER
...
corpo do relatorio
...
SET DEVICE TO
SET PRINTER TO
SET PRINTER TO
Desta forma voce forcou um desligamento do comando de impressão:
Outra dica é voce escrever em arquivo .TXT em modo baixo nivel usando
fcreate,
fwrite e
fclose, como:
Código: Selecionar todos
// Cria arquivo
errfile := "arquivo.txt"
ret_line := "chr(13)+chr(10)"
errhandle := fcreate(errfile)
lin := 1
//
USE arquivo
GO TOP
DO while .not. eof()
@ 24,0 say 'Imprimindo a linha '+str(lin,3)
VariavelAImprimir := SUBSTR(campoC,1,30) + " " + ;
STR(campoN,5) + " " + ;
TRANSF(campoN,"@e 999,999.99") + " " + ;
DTOC(campoD)
fwrite(errhandle, VariavelAImprimir + &ret_line.)
lin := lin + 1
ENDDO
fclose(errhandle)
Depois basta usar comando de envio à impressora através do RUN do Clipper ou do RUN do BLinker.
RUN "COPY "+errfile+" LPT1"
Neste caso eu suponho que LPT1 seja usada pela impressora USB.
Continuo frizando que ''e melhor usar um utilitário extra sistema e parar de quebrar a cabeça.
@braços :?)