Imprimir diretamente na USB

Delphi

18/11/2008

  AssignFile(F,´LPT1´);
  Rewrite(F);

  Writeln(F,´S2´); 
  Writeln(F,´Q800,24´);
  Writeln(F,´N´); 
  Writeln(F,´A1,01,0,3,1,2,N,"´+Descricao.Text+´"´);
  Writeln(F,´B0,120,0,E30,4,8,170,B,"´+Barras.Text+´"´); 
  Writeln(F,´R´); 
  Writeln(F,´P1´); 
  Closefile(F);


Estou tentando utilizar este codigo para imprimir em um Zebra 2844, ligada em um porta LPT, mas agora preciso imprimir usando a porta USB do micro, pois o micro onde sera instalada nao tem LPT, como faço para imprimir na porta USB ?

Abs


Felipeiw

Felipeiw

Curtidas 0

Melhor post

Mateusandre

Mateusandre

19/11/2008

Ola

cara ja fiz um algoritmo para impressão de etiquetas em Delphi 7 e neste mesmo modelo de impresso e passei pela mesma situação, a resolvi da seguinte maneira, eh necessário mapear o compartilhamento da impressora, então primeiramente eh necessário que vc compatilhe a impressora, e posteriormente no momento que vc chama a porta ´LPT1´ vc deve chamar o compatilhamento da impresso, ex ´\\PC001\zebra´, nesta situação o ´PC001´ eh o nome do pc onde a impressora esta instalada e ´zebra´ eh o nome dado a compartilhamento da impressora, ah e não esqueça de desaivar o firewall do windows para pode acessar o compartilhamentio


GOSTEI 1

Mais Respostas

Felipeiw

Felipeiw

18/11/2008

Obrigado mateus, fiz isso tb, porem o micro onde sera instalada a impressora nao possui porta LPT fisicamente, entao o comando NET USE LPT1: \\SERVIDOR\ZEBRATLP, nao funciona.

Abs


GOSTEI 0
Vitor Alcantara

Vitor Alcantara

18/11/2008

Amigo eu utilizo para impressão direta a unit CharPrinter.
Segue o link que contem a unit [url]http://forum.devmedia.com.br/viewtopic.php?t=88862&postdays=0&postorder=asc&start=0[/url]
Utilizando ela mais um PrintDialog você não precisa ficar setando o nome da impressora, ou local dela.


GOSTEI 0
POSTAR