Jump to content

dev botao

Configurar O Acbrmonitor Para Impressora Argox - Usb


Vinicius Souza
Go to solution Solved by Vinicius Souza,
  • Este tópico foi criado há 3555 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • 2 weeks later...

Bom dia Daniel, deu certo !!!!

 

Agora estou com outros problemas.

 

1° - Eu preciso mandar imprimir varias etiquetas ao mesmo tempo com diferentes informações. Eu estou usando o seguinte comando: 

 

ETQ.SetTemperatura(15)
ETQ.Imprimir(0, 0);
 
ETQ.ImprimirTexto( 0, 3, 1, 1, 160, 680, 1Teste de etiqueta)
ETQ.ImprimirTexto( 0, 2, 1, 1, 120, 680, 1descricao do produto)
ETQ.ImprimirTexto( 0, 2, 1, 1, 140, 530, 1codigopro)
 
ETQ.ImprimirTexto( 0, 3, 1, 1, 160, 680, 2Teste de etiqueta)
ETQ.ImprimirTexto( 0, 2, 1, 1, 120, 680, 2descricao do produto)
ETQ.ImprimirTexto( 0, 2, 1, 1, 140, 530, 2codigopro)
 
ETQ.ImprimirTexto( 0, 3, 1, 1, 160, 680, 3Teste de etiqueta)
ETQ.ImprimirTexto( 0, 2, 1, 1, 120, 680, 3descricao do produto)
ETQ.ImprimirTexto( 0, 2, 1, 1, 140, 530, 3codigopro)
 
ETQ.ImprimirTexto( 0, 3, 1, 1, 160, 680, 4Teste de etiqueta)
ETQ.ImprimirTexto( 0, 2, 1, 1, 120, 680, 4descricao do produto)
ETQ.ImprimirTexto( 0, 2, 1, 1, 140, 530, 4codigopro)
 
ETQ.ImprimirTexto( 0, 3, 1, 1, 160, 680, 5Teste de etiqueta)
ETQ.ImprimirTexto( 0, 2, 1, 1, 120, 680, 5descricao do produto)
ETQ.ImprimirTexto( 0, 2, 1, 1, 140, 530, 5codigopro)
 
ETQ.ImprimirTexto( 0, 3, 1, 1, 160, 680, 6Teste de etiqueta)
ETQ.ImprimirTexto( 0, 2, 1, 1, 120, 680, 6descricao do produto)
ETQ.ImprimirTexto( 0, 2, 1, 1, 140, 530, 6codigopro)
 
ETQ.ImprimirTexto( 0, 3, 1, 1, 160, 680, 7Teste de etiqueta)
ETQ.ImprimirTexto( 0, 2, 1, 1, 120, 680, 7descricao do produto)
ETQ.ImprimirTexto( 0, 2, 1, 1, 140, 530, 7codigopro)
 
ETQ.ImprimirTexto( 0, 3, 1, 1, 160, 680, 8Teste de etiqueta)
ETQ.ImprimirTexto( 0, 2, 1, 1, 120, 680, 8descricao do produto)
ETQ.ImprimirTexto( 0, 2, 1, 1, 140, 530, 8codigopro)
 
ETQ.SetAvanco(4)
 

 

Como eu modifico ele para imprimir varias etiquetas ao mesmo tempo?

 

2° problema que estou tendo é imprimir o código de barra. 

 

Estou usando o seguinte comando:

 

 
ETQ.SetTemperatura(15)
ETQ.Imprimir(0, 0);
 
ETQ.ImprimirTexto( 0, 3, 1, 1, 160, 680, 1Teste de etiqueta)

ETQ.ImprimirBarras( 0, 'E30', '2', '2', 00, 15, '7896003701685', 080, becNAO);

ETQ.SetAvanco(4)

 

Ele não imprimir o codigo de barra. Onde estou errando?

 

 

Att. Vinicius.

Link to comment
Share on other sites

  • Fundadores

Você precisa chamar "Imprimir" para cada Linha de etiquetas...

 

Alguns tipo de código de barras tem regras... aparentemente vc está tentando o EAN13... percebo que o código possui 13 digitos... o dígito verificador está correto ?

Acho que se você enviar com 12 caracteres a impressora computa o dig.verificador

Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link to comment
Share on other sites

Daniel, 

Ta quase funcionando!!

 

Eu modifiquei para esse codigo

 

ETQ.ATIVAR
ETQ.SetAvanco(0)
ETQ.SetTemperatura(16)
ETQ.ImprimirBarras(0,EAN-8, 3, 2, 1, 383, 1234, 0)
ETQ.ImprimirTexto( 0, 3, 1, 1, 50, 670, 3Teste de etiqueta)
ETQ.ImprimirTexto( 0, 2, 1, 1, 40, 670, 3descricao do produto)
ETQ.ImprimirTexto( 1, 2, 1, 1, 50, 640, 54321)
ETQ.IMPRIMIR(0, 0)
 
ETQ.ImprimirBarras(0,EAN-8, 3, 2, 1, 383, 1234, 0)
ETQ.ImprimirTexto( 0, 3, 1, 1, 50, 670, 3Teste de etiqueta)
ETQ.ImprimirTexto( 0, 2, 1, 1, 40, 670, 3descricao do produto)
ETQ.ImprimirTexto( 1, 2, 1, 1, 50, 640, 54321)
ETQ.IMPRIMIR(0, 0)
 
ETQ.ImprimirBarras(0,EAN-8, 3, 2, 1, 383, 1234, 0)
ETQ.ImprimirTexto( 0, 3, 1, 1, 50, 670, 3Teste de etiqueta)
ETQ.ImprimirTexto( 0, 2, 1, 1, 40, 670, 3descricao do produto)
ETQ.ImprimirTexto( 1, 2, 1, 1, 50, 640, 54321)
ETQ.IMPRIMIR(0, 0)
 
ETQ.ImprimirBarras(0,EAN-8, 3, 2, 1, 383, 1234, 0)
ETQ.ImprimirTexto( 0, 3, 1, 1, 50, 670, 3Teste de etiqueta)
ETQ.ImprimirTexto( 0, 2, 1, 1, 40, 670, 3descricao do produto)
ETQ.ImprimirTexto( 1, 2, 1, 1, 50, 640, 54321)
ETQ.IMPRIMIR(0, 0)
 
ETQ.ImprimirBarras(0,EAN-8, 3, 2, 1, 383, 1234, 0)
ETQ.ImprimirTexto( 0, 3, 1, 1, 50, 670, 3Teste de etiqueta)
ETQ.ImprimirTexto( 0, 2, 1, 1, 40, 670, 3descricao do produto)
ETQ.ImprimirTexto( 1, 2, 1, 1, 50, 640, 54321)
ETQ.IMPRIMIR(0, 0)
 
ETQ.ImprimirBarras(0,EAN-8, 3, 2, 1, 383, 1234, 0)
ETQ.ImprimirTexto( 0, 3, 1, 1, 50, 670, 3Teste de etiqueta)
ETQ.ImprimirTexto( 0, 2, 1, 1, 40, 670, 3descricao do produto)
ETQ.ImprimirTexto( 1, 2, 1, 1, 50, 640, 54321)
ETQ.IMPRIMIR(0, 0)
 
O codigo de barra, começa no meio da da etiqueta e vai até a metade da outra etiqueta.
 
Se eu tiro a instrução para imprimir a etiqueta, fica perfeito !!!
 
O que pode estar acontecendo?

post-2002-0-38017900-1412087609_thumb.jp

Link to comment
Share on other sites

  • Fundadores

Aparentemente essa etiqueta não possui "GAP"... O ACBrETQ não possui comandos para controlar o tamanho da etiqueta... ele deixa isso a cargo da impressora, que usa o sensor de GAP para saber quando chegou o final da etiqueta

Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link to comment
Share on other sites

Como que eu faço para descobrir se tem o "GAP" ?

 

Assim.....se eu executo esse comando, funciona perfeitamente MAS PULA SEMPRE UMA ETIQUETA.

 

ETQ.ATIVAR
ETQ.SetAvanco(0)
ETQ.SetTemperatura(20)
ETQ.ImprimirBarras(0,EAN-8, 3, 2, 1, 380, 1234, 0)
ETQ.ImprimirTexto( 0, 3, 1, 1, 50, 670, 3Teste de etiqueta)
ETQ.ImprimirTexto( 0, 2, 1, 1, 1, 670, 3descricao do produto)
ETQ.IMPRIMIR(0, 0)
 
ETQ.ImprimirBarras(0,EAN-8, 3, 2, 90, 380, 1234, 0)
ETQ.ImprimirTexto( 0, 3, 1, 1, 160, 670, 3Teste de etiqueta)
ETQ.ImprimirTexto( 0, 2, 1, 1, 120, 670, 3descricao do produto)
ETQ.IMPRIMIR(0, 0)
 
 
ETQ.ImprimirBarras(0,EAN-8, 3, 2, 90, 380, 1234, 0)
ETQ.ImprimirTexto( 0, 3, 1, 1, 160, 670, 3Teste de etiqueta)
ETQ.ImprimirTexto( 0, 2, 1, 1, 120, 670, 3descricao do produto)
ETQ.IMPRIMIR(0, 0)
 
ETQ.ImprimirBarras(0,EAN-8, 3, 2, 90, 380, 1234, 0)
ETQ.ImprimirTexto( 0, 3, 1, 1, 160, 670, 3Teste de etiqueta)
ETQ.ImprimirTexto( 0, 2, 1, 1, 120, 670, 3descricao do produto)
ETQ.IMPRIMIR(0, 0)
 
ETQ.ImprimirBarras(0,EAN-8, 3, 2, 90, 380, 1234, 0)
ETQ.ImprimirTexto( 0, 3, 1, 1, 160, 670, 3Teste de etiqueta)
ETQ.ImprimirTexto( 0, 2, 1, 1, 120, 670, 3descricao do produto)
ETQ.IMPRIMIR(0, 0)
 

 

Mas não pode pular uma etiqueta. O sistema antigo não pula etiqueta

post-2002-0-00112000-1412090716_thumb.jp

Edited by Vinicius Souza
Link to comment
Share on other sites

  • Fundadores
Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link to comment
Share on other sites

Daniel, liguei no fornecedor.....e ele me disse que a etiqueta é GAP.....o modelo dela que é diferente.

 

O que eu nao to conseguindo entender é que o sistema antigo imprimi perfeitamente, até a qualidade da impressão é melhor (o codigo de barra e o que é escrito é mais nítido).

 

Outra coisa que nao entendo é que se eu usar o codigo 1 (nao tem codigo de barra), imprimi perfeitamente. Se eu uso o codigo 2, sempre pula uma etiqueta. No caso do codigo 3, o codigo de barra começa na metade de uma e vai até a metade da outra e o texto fica normal (pula 1).

 

Acho que o erro esteja no meu sistema...

 

Por favor, me uma ajuda.....to no limite com esse cliente.

 

Código 1

ETQ.ATIVAR
ETQ.SetAvanco(0)
ETQ.SetTemperatura(20)
ETQ.ImprimirTexto( 0, 3, 1, 1, 50, 670, 3Teste de etiqueta)
ETQ.ImprimirTexto( 0, 2, 1, 1, 1, 670, 3descricao do produto)
ETQ.IMPRIMIR(0, 0)
 
ETQ.ImprimirTexto( 0, 3, 1, 1, 50, 670, 3Teste de etiqueta)
ETQ.ImprimirTexto( 0, 2, 1, 1, 1, 670, 3descricao do produto)
ETQ.IMPRIMIR(0, 0)

Código 2

ETQ.ATIVAR
ETQ.SetAvanco(0)
ETQ.SetTemperatura(16)
ETQ.ImprimirBarras(0,EAN-8, 3, 2, 90, 380, 1234, 0)
ETQ.ImprimirTexto( 0, 3, 1, 1, 160, 670, 3Teste de etiqueta)
ETQ.ImprimirTexto( 0, 2, 1, 1, 120, 670, 3descricao do produto)
ETQ.IMPRIMIR(0, 0)
 
ETQ.ImprimirBarras(0,EAN-8, 3, 2, 90, 380, 1234, 0)
ETQ.ImprimirTexto( 0, 3, 1, 1, 160, 670, 3Teste de etiqueta)
ETQ.ImprimirTexto( 0, 2, 1, 1, 120, 670, 3descricao do produto)
ETQ.IMPRIMIR(0, 0)
 

Código 3

ETQ.ATIVAR
ETQ.SetAvanco(0)
ETQ.SetTemperatura(20)
ETQ.ImprimirBarras(0,EAN-8, 3, 2, 1, 380, 1234, 0)
ETQ.ImprimirTexto( 0, 3, 1, 1, 50, 670, 3Teste de etiqueta)
ETQ.ImprimirTexto( 0, 2, 1, 1, 1, 670, 3descricao do produto)
ETQ.IMPRIMIR(0, 0)
 
ETQ.ImprimirBarras(0,EAN-8, 3, 2, 1, 380, 1234, 0)
ETQ.ImprimirTexto( 0, 3, 1, 1, 50, 670, 3Teste de etiqueta)
ETQ.ImprimirTexto( 0, 2, 1, 1, 1, 670, 3descricao do produto)
ETQ.IMPRIMIR(0, 0)
Edited by Vinicius Souza
Link to comment
Share on other sites

  • Fundadores

A etiqueta não tem o GAP... isso é comprovado pela foto que você enviou...

 

Sem o GAP,  a única maneira, é usar comandos específicos do protocolo (PPLA/PPLB) é configurar as métricas da etiqueta na memória da Impressora... o ACBrETQ não suporta essa funcionalidade

 

Você não conseguirá usar o ACBrETQ com essa etiqueta...

Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link to comment
Share on other sites

  • Membros Pro

function TfmCadProduto.AtivarACBrETQ: string;
Var
   eAvanco :string;
begin
  if vImpressoraEtiqueta = 'Argox OS 214-Plus' then
  begin
     eAvanco := 300;
     ACBrETQ.Desativar;

    with ACBrETQ do
    begin
       DPI           := TACBrETQDPI(dpi203); //dpi203, dpi300, dpi600
       Modelo        := TACBrETQModelo(etqPpla); //etqNenhuma, etqPpla, etqPPlb, etqZPLII,etqEpl2
       Porta         := vCompatilhamento;
       LimparMemoria := True;

       Ativar;
    end;
  end;  
end;

 

///////////////////////////////////////

//Modelo de Etiqueta para Gondulas Tam 110x30mm

      with ACBrETQ do
      begin
         if Modelo = etqPpla then
          begin
            ImprimirTexto(orNormal, 2, 2, 2, 200, 55, vNomeProduto);
            ImprimirTexto(orNormal, 2, 2, 1, 170, 55, vComplemento);
            ImprimirBarras(orNormal, 'F', '2', '2', 32, 55, QrCadastrocodigo_barra.Text, 90, becSIM);
            ImprimirTexto(orNormal, 3, 3, 2, 15, 350, 'R$');
            ImprimirTexto(orNormal, 3, 4, 4, 15, 500, FormatFloat(',0.00', QrCadastrovalor.Value));
          end
         else
          begin
            ImprimirTexto(orNormal, 2, 2, 2, 15, 55, vNomeProduto);
            ImprimirTexto(orNormal, 2, 2, 1, 65, 55, vComplemento);
            ImprimirBarras(orNormal, 'E30', '2', '2', 95, 55, QrCadastrocodigo_barra.Text, 90, becSIM);
            ImprimirTexto(orNormal, 3, 3, 2, 110, 355, 'R$');
            ImprimirTexto(orNormal, 3, 4, 5, 90, 500, FormatFloat(',0.00', QrCadastrovalor.Value));
          end ;

          Imprimir(1,600); //Imprimir 1 Copia e Avancar 600
         Desativar;
      end;
    end;

 

///////////////////////////////////////

//Modelo de Etiqueta para Produtos 3 Colunas Tam 33x21mm

 

    with ACBrETQ do
    begin
       if Modelo = etqPpla then
        begin
          ImprimirTexto(orNormal, 2, 1, 2, 150, 35, vNomeProduto);
          ImprimirTexto(orNormal, 2, 1, 1, 120, 35, vComplemento);
          ImprimirBarras(orNormal, 'F', '2', '2', 20, 35, QrCadastrocodigo_barra.Text, 70);

          ImprimirTexto(orNormal, 2, 1, 2, 150, 400, vNomeProduto);
          ImprimirTexto(orNormal, 2, 1, 1, 120, 400, vComplemento);
          ImprimirBarras(orNormal, 'F', '2', '2', 20, 400, QrCadastrocodigo_barra.Text, 70);

          ImprimirTexto(orNormal, 2, 1, 2, 150, 730, vNomeProduto);
          ImprimirTexto(orNormal, 2, 1, 1, 120, 730, vComplemento);
          ImprimirBarras(orNormal, 'F', '2', '2', 20, 730, QrCadastrocodigo_barra.Text, 70);
        end
       else
        begin
          ImprimirTexto(orNormal, 2, 1, 3, 15, 55, vNomeProduto);
          ImprimirTexto(orNormal, 2, 1, 1, 80, 55, vComplemento);
          ImprimirBarras(orNormal, 'E30', '2', '2', 120, 55, QrCadastrocodigo_barra.Text, 080, becSIM);

          ImprimirTexto(orNormal, 2, 1, 3, 15, 365, vNomeProduto);
          ImprimirTexto(orNormal, 2, 1, 1, 80, 365, vComplemento);
          ImprimirBarras(orNormal, 'E30', '2', '2', 120, 365, QrCadastrocodigo_barra.Text, 080, becSIM);

          ImprimirTexto(orNormal, 2, 1, 3, 15, 670, vNomeProduto);
          ImprimirTexto(orNormal, 2, 1, 1, 80, 670, vComplemento);
          ImprimirBarras(orNormal, 'E30', '2', '2', 120, 670, QrCadastrocodigo_barra.Text, 080, becSIM);
        end;

       Imprimir(1,600);
       Desativar;
       end;

Link to comment
Share on other sites

×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.

The popup will be closed in 10 seconds...