Imprimir codigos de barras na TLP 2844 (Zebra) via USB
30/08/2010
0
Estou precisando saber como fao pra imprimir codigos de barras pela a impressora Zebra TLP 2844 pela porta USB,alguem poderia me ajudar ???
Robson Morais
Posts
30/08/2010
Dari Junior
https://www.devmedia.com.br/post-9510-Integrar-impressora-Zebra-TLP-2844-Parte-1.html
30/08/2010
Robson Morais
preciso saber como posso imprimir na porta USB
30/08/2010
Marcio Lopes..
04/09/2010
Robson Morais
peo ajuda de todos do forum....
pois sou leigo em ingles e todos os manuais so em ingles.....
pois no estou conseguindo acertar os campos, no sei identificar os cdigos.
fiz igual voce explicou no seu artigo https://www.devmedia.com.br/post-9510-Integrar-impressora-Zebra-TLP-2844-Parte-1.html, mas quando eu edito o arquivo ele fica dessa maneira abaixo, mudei o GW por A, mas nada e eu fiz no programa da Zebra e imprime certo. Que dificuldade fazer imprimir na impressora termica .
I8,A,001 Q128,024 q831 rN S1 D4 ZT JF OC1,D R54,0 f100 N GW52,94,21,18, GW162,71,8,15,}}yo GW282,93,21,18,?c GW44,68,11,28,?? GW392,70,8,16,}}yo GW624,71,8,15,}}yo GW274,67,11,28,? GW520,93,20,18,>c>c>c>c?wwwwww GW505,67,11,28,? B221,69,2,1,2,6,30,N,"1223344" B451,68,2,1,2,6,30,N,"1223344" B683,68,2,1,2,6,30,N,"1223344" P1
ajuda por favore !!!!!
05/09/2010
Robson Morais
Joguei a consigurao da impressora em um DBgrid para quebrar as linhas e ficar bem legal e coloquei as informaes dentro de uma tabela temporria.
Ficou assim.........
procedure TFrmConfigEtiquetas.SpbImpClick(Sender: TObject);
Var
Comando : TStringList;
F : TextFile;
begin
TblEtiq.First;
while not TblEtiq.Eof do
begin
Comando.Add(TblEtiqComando.AsString);
TblEtiq.Next;
end;
// gera arquivo texto com o contedo que ser enviado para a impressora
Comando.SaveToFile('c:\IzaLoja\IzaSis\etiqueta.txt');
// criar um arquivo .bat para enviar o arquivo texto gerado para a impressora atraves da porta LPT1
// usando o comando type do DOS
if not FileExists('C:\IzaLoja\IzaSis\printlbl.bat') then
begin
AssignFile(F, 'C:\IzaLoja\IzaSis\printlbl.bat');
try
Rewrite(F);
Writeln(F, 'Type C:\IzaLoja\IzaSis\etiqueta.txt > LPT1');
finally
CloseFile(F);
end
end;
ShellExecute(0, 'Open', PChar('C:\IzaLoja\IzaSis\printlbl.bat'), nil, nil, Ord(SW_HIDE));
end;
Dessa maneira eu estou jogando os codigos da Tabela para um txt e mandando por um arquivo bat para a porta LPT1, mas como meu objetivo era para a porta USB eu achei um programinha chamado DOSPRINT na internet que emula a porta LPT1 para USB, bem simples de usar, ai sucesso a impresso saiu corretamente.
N Q001,8 F2 D10 ZT A675,115,2,1,1,1,N,"CINTO TRANCADO" A675,85,2,1,1,1,N,"00001" A582,95,2,3,1,1,N,"R$14,55" B490,35,0,2,2,5,30,N,"00001" A447,115,2,1,1,1,N,"CINTO TRANCADO" A354,95,2,3,1,1,N,"R$14,55" A447,85,2,1,1,1,N,"888899970" B265,35,0,2,2,5,30,N,"888899970" A217,115,2,1,1,1,N,"CINTO TRANCADO" A124,95,2,3,1,1,N,"R$14,55" A217,85,2,1,1,1,N,"888899970" B35,35,0,2,2,5,30,N,"888899970" P001
Ai a dor de Cabea foi entender os codigos, (entendi um pouco) e tentei tentei e tentei ai consegui configurar a etiqueta certinho, os codigos esto ai embaixo, [b]mas eis o problema[/b], lembra que falei que entendi um pouco os codigos ?
Ento....vamos l.
[u][b]minha etiqueta de 3 colunas, agora se eu mando imprimir 9 etiquetas, automaticamente muda o campo[/b][/u] [b]P001[/b] da etiqueta para [b]P003[/b], [u][b]3 linhas de 3 colunas = 9 etiquetas, mas ai nao sai certo na etiqueta, no d o espao certo de cada linha para sair na posio certa, sei que isso nos codigos acima que est ai, olhei no manual, traduzi bastande coisa mas no achei e estou desesperado!!!!! :(
algum pode me ajudar nisso ????[/b][/u]
07/09/2010
Robson Morais
N Q104,18 F2 D10 ZT A124,95,2,3,1,1,N,"R$14,55" P001
N > Limpa imagem da memria
Q104 > 104 significa 104 dots, 1 mm = 8 Dots a altura da etiqueta 104 Dots = 13 mm (1,3 cm) , 18 dots espao entre etiquetas
F2 > No achei
D10 > Densidade da impresso
ZT > Direo da Impressao
A124 > Coluna
,95 > Linha
,2 > Rotao
,3 > Tipo de Fonte
,1 > Multiplicador de Altura dos caracteres
,1 > Multiplicador de Largura dos caracteres
,N > Limpa imagem da memria
,"R$14,55" > Texto a ser impresso
P001 > Total de impressao na etiqueta
consegui obter os dados de configurao da etiqueta ligando a impressora e apertando o boto sai os codigos de configurao lendo os modelos da etiquetas.
Fiz tudo e :D consegui.....ufa.....impreimei perfeitamente, mas como alegria dura pouco...mandei imprimir 30 etiquetas e imprime 15 etiquetas (5 linhas) ai pula uma linha de etiqueta ai imprime mais 6 etiquetas e pula uma linha.
estou na reta final, acabei com o ribow e com as etiquetas o cliente t furioso e eu feliz por ter conseguido bastante coisa, mas mais uma vez peo ajuda, o porque t pulando assim ?????
28/09/2012
Douglas Braz
"net use lpt1: \\ o nome do pc\nome da impresora(nesse caso teste)", detalhe no esquea de colocar espao entre os dois pontos e a barra envertida. depois va no bloco de notas e copie e cole os codigos do tutorial e salve em qualquer diretorio, depois va no propt de comando e va p o diretorio onde vc salvo o arquivo e digite
"type "nome do arquivo".txt>lpt1",,, feito isso saira na impresora zebra tpl 2844 o que estava no arquivo testo...
espero ter ajudado
02/12/2015
Sidney Abreu
Cdigo utilizado
N D10 S3 B50,50,0,E30,2,3,50,N,"12345679" P1
02/12/2015
Robson Morais
#Cdigo 1 2 3 4 5 6 7 N Q104,18 F2 D10 ZT A124,95,2,3,1,1,N,"R,55" P001 Citao: N > Limpa imagem da memria Q104 > 104 significa 104 dots, 1 mm = 8 Dots a altura da etiqueta 104 Dots = 13 mm (1,3 cm) , 18 dots espao entre etiquetas F2 > No achei D10 > Densidade da impresso ZT > Direo da Impressao A124 > Coluna ,95 > Linha ,2 > Rotao ,3 > Tipo de Fonte ,1 > Multiplicador de Altura dos caracteres ,1 > Multiplicador de Largura dos caracteres ,N > Limpa imagem da memria ,"R$14,55" > Texto a ser impresso P001 > Total de impressao na etiqueta
02/12/2015
Sidney Abreu
var
f:TextFile;
linha: string;
begin
AssignFile(f,'c:\teste.txt');
Rewrite(f);
Writeln(f,'N');
writeln(f,'Q104,18');
Writeln(f,'F2');
Writeln(f,'D10');
Writeln(f,'ZT');
Writeln(f,'A124,5,2,3,1,1,N,"R,55"');
Writeln(f,'P001');
CloseFile(f);
AssignFile(f,'c:\teste.txt');
Reset(f);
while not eof(f) do
begin
readln(f,linha);
FrmPrincipal.Memo1.Lines.Add(linha);
end;
CloseFile(f);
Memo1.Lines.SaveToFile('\\ultra\ZDesigner');
02/12/2015
Robson Morais
03/12/2015
Rafael Santos
lhe ajudo.
Se der certo, voc posta a soluo aqui depois para outros desenvolvedores que se depararam com o mesmo problema.
Att, Rafael Ferreira.
Clique aqui para fazer login e interagir na Comunidade :)
