Configurar O Acbrmonitor Para Impressora Argox - Usb

Vinicius Souza · 15 Setembro, 2014

Bom dia a todos,

Tenho um cliente que comprou uma impressora argox e ela é USB. Como eu configura o acbrmonitor para trabalhar com ela?

Daniel Simoes · 15 Setembro, 2014

Vinicius Souza · 27 Setembro, 2014

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.

Daniel Simoes · 27 Setembro, 2014

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

Vinicius Souza · 30 Setembro, 2014

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?

Daniel Simoes · 30 Setembro, 2014

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

Vinicius Souza · 30 Setembro, 2014

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

Editado 30 Setembro, 2014 por Vinicius Souza

Daniel Simoes · 30 Setembro, 2014

Aparentemente não há o GAP... veja essas imagens.. repare no recorte na etiqueta... Um sensor de luz detecta isso como o final da etiqueta

https://www.google.com.br/search?q=argox+label+gap&client=firefox-a&hs=bag&rls=org.mozilla:pt-BR:official&channel=sb&source=lnms&tbm=isch&sa=X&ei=Rc0qVLrRDMmxggTRpoFI&ved=0CAgQ_AUoAQ&biw=1920&bih=969#rls=org.mozilla:pt-BR:official&channel=sb&tbm=isch&q=argox+etiqueta+gap

Vinicius Souza · 30 Setembro, 2014

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)

Editado 30 Setembro, 2014 por Vinicius Souza

Daniel Simoes · 30 Setembro, 2014

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...

Vinicius Souza · 1 Outubro, 2014

Blz. Vou baixar o programa no site da argox para testar.

Sabe me informar qual o codigo de barra que nao faz validação? (para imprimir do codigo 1 até o 9999999...) ?

Att

Daniel Simoes · 1 Outubro, 2014

Acredito que o Code2of5 ou Code3of9

FRANCISCO908 · 1 Outubro, 2014

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;

Vinicius Souza · 1 Outubro, 2014

Ja que minha etique nao tem o GAP, qual a melhor forma de trabalhar?

Eu tenho que configurar alguma coisa nas propriedades de impressão?

Ou eu só configura a folha no reportbuilder?

Vinicius Souza · 1 Outubro, 2014

Francisco,

Minha etiqueta tem o seguinte formato

Como que fica?

Editado 1 Outubro, 2014 por Vinicius Souza

Entrar

Sobre nós...

Configurar O Acbrmonitor Para Impressora Argox - Usb

Recommended Posts

Vinicius Souza

Daniel Simoes

Vinicius Souza

Daniel Simoes

Vinicius Souza

Daniel Simoes

Vinicius Souza

Daniel Simoes

Vinicius Souza

Daniel Simoes

Vinicius Souza

Daniel Simoes

FRANCISCO908

Vinicius Souza

Vinicius Souza

Links Rápidos

Links Rápidos

ACBr Pro

SOBRE

Sobre nós...

Informação Importante