Fórum Xmaker

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

Alguma dica?

Grato
André

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);

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é