Impressão na ZEBRA Z4M USB, direto na Impressora

[andrepiazza]

Estou precisando imprimir uma etiqueta sem passar pelo spool do windows.
Impressora: Zebra Z4M - USB

Alguma dica?

Grato
André

[ricardobhte]

Olá, boa tarde.

Eu primeiro criei uma etiqueta no programa próprio da impressora com isso ele gerou um arquivo texto para direcionar para impressora.
Pequei as linhas e mandei direto para a porta da impressora, segue pedaço do código que gerei o programa espero que tenha ajudado.

vetq.clear;
vetq.Add('^XA~TA000~JSN^LT0^MNW^MTT^PON^PMN^LH0,0^JMA^PR4,4^MD0^JUS^LRN^CI0^XZ');
vetq.Add('^XA');
vetq.Add('^MMT');
vetq.Add('^^LL0406');
vetq.Add('^PW609');
vetq.Add('^LS0');
vetq.Add('^BY4,3,93^FT257,236^BCN,,N,N');
vetq.Add('^FD>;[barra]^FS');
vetq.Add('^FT256,117^A0N,91,117^FH\^FD[endereco]^FS');
vetq.Add('^PQ[vz],0,1,Y^XZ');
// substitui as variáveis delimitadas por [] pelo conteúdo do campo
for i:=0 to vetq.count - 1 do
begin
s := Vetq.strings[i];
pi := pos('[', s);
pf := pos(']', s);
while pi > 0 do
begin
c := copy(s, pi + 1, pf - pi - 1);
if pos('vz',s ) > 0 then
c1 := (vezes.Text);
if pos('endereco',s ) > 0 then
c1 := copy(DEndereco.Localizacao.Conteudo,1,2)+'.'+copy(DEndereco.Localizacao.Conteudo,3,3);
if pos('barra',s ) > 0 then
c1 := copy(DEndereco.Localizacao.Conteudo,1,4)+'>6'+copy(DEndereco.Localizacao.Conteudo,5,1); //Cod Barra produto
s := StringReplace(s, '[' + c + ']', c1, [rfReplaceAll]);
pi := pos('[', s);
pf := pos(']', s);
end; // fim while pi
vetq.strings[i] := s;
end; // fim for
end; // fim Caixa Flowrack
// gera arquivo texto com o conteúdo que será enviado para a impressora
vetq.SaveToFile('etiqueta.txt');
if RadioGroup2.ItemIndex = 0 then
AssignFile(F,'COM1')
else
AssignFile(F,'LPT1:');
Rewrite(F);
for i:=0 to vetq.count - 1 do
Writeln(F,Vetq.strings[i]);
CloseFile(F);

[andrepiazza]

Ricardo, consegui resolver imprimindo direto na Impressão (configuração do próprio windows) e o tempo de impressão foi aceitável.
Fico Grato pela ajuda, vou guardar esta dica.

André