Problema Entre Etiquetas Usando O Acbretq

[elixandre]

Olá galera !!!! Estou tendo um problema para gerar uma etiqueta pela impressoar argox usando PPLA , tudo esta funcionado, conectado, enviados os dados , imprimindo ...

Mas não conseguindo mudar o avanço enter etiquetas ... tipo ... se mando imprimir duas linhas ... qua no caso seria duas etiquetas .... entre as etiqueta ...

fica um espaço de duas etiquetas .... se mando 4 etiquetas ... entre  cada etiqueta fica as mesmas duas etiquetas em branco ... já mudei o valor de avanço 

quando mando imprimir ... já coloquei 600 (que vem no exemplo) , 300, 100 e até zerei .... mas sempre pula duas etiquetas ...

 

Esta aqui parte do código que estou usando :

 

 

if ACBrETQ.Ativo then

begin

  ACBrETQ.Desativar;

end;

 

//aqui coloco o avanço que quero ...

vAvanco=600;

ACBrETQ.Avanco := vAvanco;

ACBrETQ.Ativar;

 

 

//etiqueta 1

ACBrETQ.ImprimirTexto(orNormal,2,2,2,190,20,'COSTA LESTE');

ACBrETQ.ImprimirTexto(orNormal,2,2,1,158,25,'AGM4010002');

ACBrETQ.ImprimirTexto(orNormal,2,2,1,90,25,'ABAFADOR/PROTETOR DE RUIDOS-AB');

ACBrETQ.ImprimirTexto(orNormal,2,3,2,15,100,'R$:');

ACBrETQ.ImprimirTexto(orNormal,2,3,3,15,210,'17,99');

 

 

//etiqueta 2

ACBrETQ.ImprimirTexto(orNormal,2,2,2,190,510,'COSTA LESTE');

ACBrETQ.ImprimirTexto(orNormal,2,2,1,158,515,'AGM4010002');

ACBrETQ.ImprimirTexto(orNormal,2,2,1,90,515,'ABAFADOR/PROTETOR DE RUIDOS-AB');

ACBrETQ.ImprimirTexto(orNormal,2,3,2,15,590,'R$:');

ACBrETQ.ImprimirTexto(orNormal,2,3,3,15,700,'17,99');

 

 

ACBrETQ.Imprimir(2, vAvanco);

 

Neste caso mando sempre como fosse duas etiquetas lado a lado pq é modelo de etiqueta ...

Neste exemplo mando imprimir duas linhas ... totalizado 4 etiquetas ... entre a linha 1 e 2 ...

perco duas etiquetas pq sai em branco como fosse um avanço entre elas ... mas eu queria que saísse 

um abaixo da outra ... o que estou fazendo de errado ????

[Daniel Simoes]

Vc não precisa programar o avanço.. a Impressora usa o GAP na etiqueta para saber quando a mesma chega ao fim...

 

O Avanço é usado apenas para ejetar a etiqueta para destaque, na última etiqueta, a fim de que seja destacada...

 

Faça um "reset" no equipamento e tente novamente...

[elixandre]

Deu certo com o reset da impressora, obrigado pela dica Daniel !!!!! E para pessoal do fórum um feliz natal e próspero ano novo e este ano seja um ano de luz para gente que

sofre tanto nesta profissão !!!!!!!!!

[Joli]

Boa tarde pessoal, fiz o reset na Argox OS-214 e quando dou o "FEED" ela pula o tamanho certo da etiqueta, mas quando uso o ACbr ela pula tres etiquetas em branco e só aí imprime a próxima. Segue o código:

 

Obs.: Avanco=zero    DPI=dpi203    modelo =etqppla

 

 

 

     with ACBrETQ do

      begin

 

      Ativar;   

 

      // tenho 3 etiquetas (colunas) onde imprimo a mesma descricao

 

      ImprimirTexto(orNormal, 2, 2, 2, 800, 75, descricao);

      ImprimirTexto(orNormal, 2, 2, 2, 800, 430, descricao);

      ImprimirTexto(orNormal, 2, 2, 2, 800, 770, descricao);

 

      Imprimir(ncopias,avanco);

 

//      Desativar;  // tirei esta linha e não adiantou nada

 

//      Ativar;        // tirei esta linha e não adiantou nada

 

      ImprimirTexto(orNormal, 2, 2, 2, 800, 75, descricao);

      ImprimirTexto(orNormal, 2, 2, 2, 800, 430, descricao);

      ImprimirTexto(orNormal, 2, 2, 2, 800, 770, descricao);

 

      Imprimir(ncopias,avanco);

 

      Desativar;

 

      end;

 

 

 

[Daniel Simoes]

O ACBrETQ apenas usa o sensor de GAP da Impressora... Ou seja, é a impressora que decide qual o pulo...

 

A bobina de etiquetas e o ribon estão posicionados de forma correta ? Já vi casos em que o mal ajuste de um destes confundiu o sensor de gap

[Ricardo - UltraSeven]

O ACBrETQ apenas usa o sensor de GAP da Impressora... Ou seja, é a impressora que decide qual o pulo...

 

A bobina de etiquetas e o ribon estão posicionados de forma correta ? Já vi casos em que o mal ajuste de um destes confundiu o sensor de gap

bom dia amigos

 

novo aqui no projetoacbr  e gostaria de parabelinzar pelo trabalho que voces vem fazendo.

 

mas gostaria de aproveitar o topico e pedir ajudar com URGENCIA, estou trabalhando com impressora ZEBRA TL2844 e depois de muito tempo e custo consegui fazer a comunicacao e a impressao da etiqueta atraves do componente acbr, porem ainda estou com um problema que nao envio a impressao de dois produtos ela imprime uma etiqueta e da salto de outra em branco, ja tentei verificar o driver da impressora e a rotina de programacao e ate agora nada, o pior que fiquei de entregar a impressora e as etiquetas na semana passada alguem consegue me dar uma luz

 

segue minha rotina:

 

 Ds_etiq.First;

 while not Ds_etiq.Eof do

      begin

      cod:=      PAnsiChar(Ds_etiqCODIGO.AsString);

      descricao:=PAnsiChar(copy(Ds_etiqDESCRICAO.AsString,1,18));

      valor:=    PAnsiChar('$ '+formatCurr('###0.00',Strtocurr(Ds_etiqVALOR.AsString)));

 

      AtivarACBrETQ;

      with ACBrETQ do

           begin

           if Modelo = etqEpl2 then

              begin

              ImprimirBarras(orNormal, '1C', '2', '2', 125, 75, COD, 60, becPadrao);  // saiu e deu leitura para 10 digitos

               ImprimirTexto(orNormal, 2, 1, 2, 155, 345, VALOR);

               ImprimirTexto(orNormal, 2, 1, 1, 190, 155, cod);

           end;

        Imprimir;

        Ds_etiq.Next;

     end;

     cod:='';

     descricao:='';

     valor:='';

     qtde:='';

   end;

  ACBrETQ.Desativar;

  SHOWMESSAGE('FIM DA IMPRESSÃO');

  end;

 

e tambem a procedure da etiqacbr

procedure TEtiq_Argox.AtivarACBrETQ ;

begin

  with ACBrETQ do

  begin

     DPI           := dpi203;

     Modelo        := etqEpl2;

     Porta         := Frm_login.sPortaEtiq;

     LimparMemoria := ckMemoria.Checked ;

     Temperatura   := 10;

     Ativar ;

  end ;

end ;

 

por favor alguem pode ajudar, OBRIGADO

[Daniel Simoes]

Já testou com o Demo ETQTeste.exe ?

 

Pode ser que você precise efetuar um Reset na sua Impressora, para ele reconhecer o "gap" entre as etiquetas corretamente

[Ricardo - UltraSeven]

Com o demo funciona mas com a minha rotina nao onde será meu erro

[Daniel Simoes]

Compare os fontes

Observe que no Demo há s chamada a IniciarEtiqueta e FinalizarEtiqueta

[Ricardo - UltraSeven]

Compare os fontes

Observe que no Demo há s chamada a IniciarEtiqueta e FinalizarEtiqueta

boa noite daniel

nao deu certo estou te enviando uma imagem da etiqueta e o bloco da rotina para que mesmo com as chamadas de inicializar e fechar a etiqueta no meu caso continua avanco 1 etiqueta 

por favor preciso resolver isso com a maxima urgencia, o cliente esta querendo o dinheiro de volta e hoje em dia nao dá.

 

segue

if Modelo = etqPpla then
      begin
        ImprimirTexto(orNormal, 2, 1, 2, 180, 15, 'BISCOITO REC 335G');
        ImprimirTexto(orNormal, 2, 1, 1, 140, 15, 'CHOC BRANCO');
        ImprimirBarras(orNormal, 'F', '2', '2', 20, 10, '7896003701685', 70);
      end
     else
      begin
        IniciarEtiqueta;
        ImprimirTexto(orNormal, 2, 1, 2, 125, 345, 'Joias Dinho');
        ImprimirBarras(orNormal, 'E30', '2', '2', 125, 55, '1234567890123', 060, becNAO);
        FinalizarEtiqueta(1,0);
     end ;
     Imprimir;
     ACBrETQ.EtqFinalizada;
     Desativar;

gostaria de saber se estou imprimindo do lado certo, pois esta etiqueta contem duas partes sendo a 1o. ficara o codigo de barra e a 2o. o valor do produto, e na parte da direita é a haste onde envolve o produto, entao fica a duvida eu tenho que enviar comando da esquerada para direita ou inverso devido a pagina de calibracao esta imprimindo da direita para esquerda

 

desde ja agradeco pelo trabalho de voces, e caso eu puder ligar pra voce ou tiver que pagar alguma coisa para resolver este problema me avise, nao sei se é a politica de voces, mas pra resolver este pepino estou disposto

[Daniel Simoes]

Aparentemente a sua etiqueta não tem o GAP... o componente não funcionará com ela...