Impressão Para Na Terceira Impressão Do Mesmo Arquivo

[lrauseo]

Olá pessoal, 

estou com um problema, estou utilizando a impressora Zebra GC420t  e quando envio o comando no Prompt de comando " type c:\teste.txt >\\192.168.100.50\zebra" ,  consigo executar o comando para imprimir o arquivo 2 vezes, apos a terceira vez a impressora imprime a etiqueta e fica piscando uma luz vermelha.

 

Para conseguir imprimir mais de 3 etiquetas eu tenho que imprimir 2, desligar e ligar a impressora e imprimir mais 2, ai funciona.

 

Fiz o mesmo teste com o modelo TLP2844 e funciona perfeitamente.

 

Alguem sabe se o modelo GC420t tem alguma coisa pra resolver esse problema...

 

Anexei o arquivo que estou enviando para teste.

 

VLw.

teste.txt

[elrond]

Boa tarde,

Eu fiz a impressao para esse modelo de impressora utilizando o componente do acbr

 

vou mandar o codigo que utilizei

procedure TFEtiquetas.AtivarACBrETQ ;
begin
  with ACBrETQ do
  begin
     DPI           := TACBrETQDPI(0);//0 - dpi203; 1 - dpi300; 2 - dpi600
     Modelo        := TACBrETQModelo(3) ;//0 - etqNenhuma; 1 - etqPpla; 2-etqPPlb; 3-etqZPLII; 4-etqEpl2
     Porta         := '\\localhost\ZDesigner';//cbPortaArgox.Text ;
     LimparMemoria := True ;
     Ativar ;
  end ;
end ;


Procedure TFEtiquetas.ImpressoraZebra;
var Qual,  i : integer;
    aux ,vQtde : string;
begin
   AtivarACBrETQ;
with ACBrETQ do
   begin
      if Modelo <> etqPPla then
      begin
         while not RMDAux2.EoF do
         begin
        ImprimirTexto(orNormal, 0, 0, 25, 35, 30, Copy(RMDAux2['desc01'], 1,30) ); // Linha 1
        ImprimirTexto(orNormal, 0, 0, 25, 60, 30, Copy(RMDAux2['desc01'],31,30) ); // Linha 2
        ImprimirBarras(orNormal, 'C', '2', '2', 80, 20, RMDAux2['codigo01'], 65, becSIM);

        If RMDAux2['Valor01'] <> Null
        then aux := 'A VISTA '+ FormatCurr('R$ ,0.00', RMDAux2['Valor01'])
        else aux:= ' ';
        ImprimirTexto(orNormal, 0, 0, 25, 170, 30, Aux );

       //A PRAZO
       If RMDAux2['Valor01a'] <> Null  then
        begin
            DivideParcelas  ( StrToInt(CETotVezes.Text), RMDAux2['Valor01a']);
            RMDparcela.First;
            if RMDparcela.RecordCount=1 then
            begin
               aux := FloattoStr(CETotVezes.Value) +' X '+FormatFloat('R$ ,0.00', RMDparcela['valor']);
               ImprimirTexto(orNormal, 0, 0, 25, 195, 30, Aux );
            end
            else
            begin
                aux := '1 X '+ FormatFloat('R$ ,0.00',RMDparcela['valor']);
                RMDparcela.Next;
                aux := aux +'   +   ' + FloattoStr(CETotVezes.Value - 1)+' X '+ FormatFloat('R$ ,0.00', RMDparcela['valor']);
                ImprimirTexto(orNormal, 0, 0, 25, 195, 30, Aux );
            end;
        end
        else  aux:= '  ';

        If RMDAux2['Valor01a'] <> Null
        then aux := 'TOTAL '+ FormatCurr('R$ ,0.00', RMDAux2['Valor01a'])
        else  aux:= '  ';

        aux :=aux +  '  C.E.T. '+  FormatFloat('0.00',(100 - ((RMDAux2['Valor01'] * 100) /  RMDAux2['Valor01a'] ) ))+'%';
        ImprimirTexto(orNormal, 0, 0, 25, 220, 30, Aux );




        ImprimirTexto(orNormal, 0, 0, 25, 35, 450, Copy(RMDAux2['desc02'], 1,30) );
        ImprimirTexto(orNormal, 0, 0, 25, 60, 450, Copy(RMDAux2['desc02'],31,30) );

        ImprimirBarras(orNormal, 'C', '2', '2', 80, 450, RMDAux2['codigo02'], 65, becSIM);
        //ImprimirTexto(orNormal, 0, 0, 25, 170, 450, FormatFloat('R$ 0.00',RMDAux2['valor02'] ));

        If RMDAux2['Valor02'] <> Null
        then aux := 'A VISTA '+ FormatCurr('R$ ,0.00', RMDAux2['Valor02'])
        else aux:= ' ';
        ImprimirTexto(orNormal, 0, 0, 25, 170, 450, Aux );
       // A_Prn_Text_TrueType(5, 27, 30, pchar('Arial'), 1, 400, 0, 0, 0, pchar('AC'), pchar(Aux), 1);

       //A PRAZO
       If RMDAux2['Valor02a'] <> Null  then
        begin
            DivideParcelas  ( StrToInt(CETotVezes.Text), RMDAux2['Valor02a']);
            RMDparcela.First;
            if RMDparcela.RecordCount=1 then
            begin
               aux := FloattoStr(CETotVezes.Value) +' X '+FormatFloat('R$ ,0.00', RMDparcela['valor']);
               ImprimirTexto(orNormal, 0, 0, 25, 195, 450, Aux );
            end
            else
            begin
                aux := '1 X '+ FormatFloat('R$ ,0.00',RMDparcela['valor']);
                RMDparcela.Next;
                aux := aux +'   +   ' + FloattoStr(CETotVezes.Value - 1)+' X '+ FormatFloat('R$ ,0.00', RMDparcela['valor']);
                ImprimirTexto(orNormal, 0, 0, 25, 195, 450, Aux );
            end;
        end
        else  aux:= '  ';

        If RMDAux2['Valor02a'] <> Null
        then aux := 'TOTAL '+ FormatCurr('R$ ,0.00', RMDAux2['Valor02a'])
        else  aux:= '  ';

        aux :=aux +  '  C.E.T. '+  FormatFloat('0.00',(100 - ((RMDAux2['Valor02'] * 100) /  RMDAux2['Valor02a'] ) ))+'%';
        ImprimirTexto(orNormal, 0, 0, 25, 220, 450, Aux );

        Imprimir(1, 600);
        RMDAux2.Next;
        end;
      end;
      Desativar;
   end;

  end;

espero que ajude

[lrauseo]

então elrond, ja fiz a implementação pelo Acbr, mas o que acontece é que não consigo imprimir mais de 3 vezes na 3 a impressora para e fica piscando a luz vermelha, só acontece com a GC420t a TLP2844 funciona perfeitamente.

 

o mesmo problema acontece tanto na aplicação quanto pelo prompt de comando utilizando  " type c:\teste.txt >\\192.168.100.50\zebra" 

[lrauseo]

Opa galera resolvi o problema era configurações da impressora.

Por padrao a GC420t(EPL) vem como padrao de impressao Transferencia Térmica (Ribbon) tive que mudar para Térmico Direto.

 

caminho: Propriedades da impressora > botão Padrões de Impressão >  aba configuração avançada, na definição de suporte mudar para Térmico direto.

depois ir em preferencias da impressora > ferramentas e enviar o comando carregar padrões de fábrica.

Pronto !! impressora imprimindo varias etiquetas de uma vez 

Editado 22 Janeiro, 2014 por lrauseo

[ALA]

Estou com o mesmo problema. Ja realizei o procedimento relatado pelo Irauseo, mas não resolveu. Alguém tem mais alguma dica ?