Impressão direta em Matriciais com porta (USB)

Delphi

30/01/2008

Minhas impressões em matríciais estão todas para impressão em Porta Serial (LPT1...), utilizando o comando Writeln e agora preciso imprimir na LX300 na porta (USB). Existe uma forma de continuar utilizando essa forma direta de impressão com Writeln, na por USB. Procurei no fórum mas não encontrei nada esclarecedor. Se alguém puder me ajudar eu agradeço.


Janete

Janete

Curtidas 0

Respostas

Edilcimar

Edilcimar

30/01/2008

eu ainda não vi lx usb, mas se existe, então provavelmente você terá que criar uma porta virtual


GOSTEI 0
Janete

Janete

30/01/2008

eu ainda não vi lx usb, mas se existe, então provavelmente você terá que criar uma porta virtual


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
Vitor Alcantara

Vitor Alcantara

30/01/2008

Uma opção que sempre recomendo é a unit CharPrinter, pois ela imprime para o spool da impressora assim não importando qual será a porta pois o que definirá a porta será a impressora selecionada no printDialog.

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
Doni

Doni

30/01/2008

Ola Pessoal

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
Khundalini

Khundalini

30/01/2008

Onde tem pra baixar essa misteriosa unit CharPrinter?

Sds.,
Rubem Rocha
Manaus, AM


GOSTEI 0
Vitor Alcantara

Vitor Alcantara

30/01/2008

Da uma olhada em http://forum.clubedelphi.net/viewtopic.php?t=88862


GOSTEI 0
Márcio Lima

Márcio Lima

30/01/2008

FIZ ASSIM E FUNCIONOU COM A ARGOX OS-214PLUS

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
POSTAR