Fórum Impressão direta em Matriciais com porta (USB) #352707
30/01/2008
0
Janete
Curtir tópico
+ 0Posts
30/01/2008
Edilcimar
Gostei + 0
30/01/2008
Janete
A LX300+II tem as duas opões Serial e USB, mas o cliente precisa que seja USB. Você pode me passar como faço uma porta virtual?
Gostei + 0
30/01/2008
Vitor Alcantara
Ex:
uses Charprinter;
procedure TForm1.Button1Click(Sender: TObject); var prn:tcharPrinter; dlg : tPrintDialog; begin dlg := tPrintDialog.Create(nil); if dlg.execute then begin prn := tcharPrinter.Create; prn.OpenDoc(´Nome do seu documento´);//Equivale ao AssignFile prn.SendData(´Seu texto´+#1310);//Equivale ao WriteLn prn.closeDoc;//Libera para o Spool da impressora prn.Free; end; dlg.Free; end;
Da uma pesquisada ai no forum pela unit charPrinter.
Utilizo ela em todo os meus projetos, e tenho tido muito sucesso.
PS: O caractere #13 faz com que a impressora pule pra próxima linha
e o caractere 10 faz com o que o carro da impressora retorne para o começo.
Gostei + 0
01/02/2008
Doni
Para desviar LPT1 para a USB, basta usar o net use
No prompt do ms dos
digite
net use lpt1: \\nome_do_computador\nome_da_impressora
isto até mesmo no computador q esta a impressora com saida usb
Gostei + 0
07/02/2008
Khundalini
Sds.,
Rubem Rocha
Manaus, AM
Gostei + 0
07/02/2008
Vitor Alcantara
Gostei + 0
11/02/2012
Márcio Lima
1º Passo
Compartilhe a impressora mesmo que não vá usa-lá em rede
2º Passo
No Prompt de comando(DOS) digite
"NET USE LPT1: \NOME DO COMPUTADOR GRUPO TRABALHO NOME DA IMPRESSORA COMPARTILHADA /YES" SEM ASPAS.
exemplo Marcio MdSL CODBARRA
3º ao inves de colocar o nome do arquivo, coloca o caminho da impressora na geração.
EX:
AssignFile(F, ); ---- \\127.0.0.1\CODBARRA
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)