Etiqueta Em Impressora Argox

[Janio]

Nunca trabalhei com impressão de etiquetas!

 

Agora surgiu a necessidade de imprimir etiquetas de preços de produtos num cliente que tem uma impressora argox OS-214 com comunicação pela porta paralela (LPT1).

 

Uso AcbrMonitor 0.10.11.0 e setei nele a impressora etqPpla, porta LPT1 e estou enviando os comando abaixo para teste:

 

ETQ.ImprimirTexto( 0, 3, 1, 2, 160, 720, "Teste de Etiqueta", 0)
ETQ.Imprimir( 1, 1)

 

A impressora avança uma etiqueta, mas nada imprime!

 

Se seto no acbr os outros modelos de impressoras disponiveis (etqPplb, etqZPLII, etc), nada acontece!

 

Janio

[FRANCISCO908]

Olá Amigo... o Código Abaixo Está Funcionando Perfeitamente... veja se lhe ajuda....

 

function TFmCodigoBarra.AtivarACBrETQ: string;
Var
   eAvanco :string;
begin
  if vImpressoraEtiqueta = 'Argox OS 214-Plus' then
  begin
     eAvanco := vAvanco;
     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;






procedure TFmCodigoBarra.SpeedButton4Click(Sender: TObject);
Var
  vNomeProduto, vComplemento :string;
begin
  vNomeProduto := '';
  vComplemento := '';

  if CdsProduto.IsEmpty then
  begin
   Application.MessageBox('Informe o produto!','GoodSystem', MB_OK + MB_ICONEXCLAMATION);
   EdProduto.SetFocus;
   abort;
  end;

    if vCompatilhamento <> '' then
    begin
      CdsProduto.First;
      while not CdsProduto.Eof do
      begin
        AtivarACBrETQ;

        vNomeProduto := Copy(CdsProdutonome.Text, 1,32);

        if CdsProdutoComplemento.Text <> '' then
        begin
         vComplemento := Copy(CdsProdutoComplemento.Text, 1,32);
        end;

        if CdsProdutoComplemento.Text = '' then
        begin
         vComplemento := Copy(DTModule.QrEmpresanomeFantasia.Text, 1,32);
        end;


        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, CdsProdutocodigobarra.Text, 90, becSIM);
              ImprimirTexto(orNormal, 3, 3, 2, 15, 350, 'R$');
              ImprimirTexto(orNormal, 3, 4, 4, 15, 500, FormatFloat(',0.00', CdsProdutovalor.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, CdsProdutocodigobarra.Text, 90, becSIM);
              ImprimirTexto(orNormal, 3, 3, 2, 110, 355, 'R$');
              ImprimirTexto(orNormal, 3, 4, 5, 90, 500, FormatFloat(',0.00', CdsProdutovalor.Value));
            end;

            Imprimir(1, StrToInt(vAvanco)); //Imprimir 1 Copia e Avancar 600
           Desativar;
        end;
       CdsProduto.Next;
      end;
    end;
end;

[Daniel Simoes]

Verifique se o Ribon está instalado corretamente

Use o autoteste da impressora... Ou um programa do fabricante, para enviar algo

[Janio]

Parece ser problema nesse ribon mesmo. No auto-teste nada imprimiu!

 

 

Vou verificar direitinho!