ACBrETQ com etiqueta continua

[chico_lopes]

Bom dia 

    eu li já no fórum que o ACBrETQ não é compatível com etiqueta contínua (sem o gap), porém estou conseguindo imprimir em uma Argox com linguagem PPLA. 

 

    Somente tive que fazer duas alteração, uma adição de comando <STX>cxxxx<CR> dizendo o tamanho da etiqueta e retirar o comando <STX>fxxx<CR> que informa o backfeed. Estive lendo o componente TACBrETQPpla.ComandosFinalizarEtiqueta que diz que é obrigatório passar o comando <STX>fxxx<CR> e vi em tópico no forum que outros usuários tiveram problemas sem esse comando <STX>fxxx<CR>. 

function TACBrETQPpla.ComandosFinalizarEtiqueta(NumCopias: Integer;
  aAvancoEtq: Integer): AnsiString;
var
  wAvanco: Integer;
begin
  if (aAvancoEtq < 0) or (aAvancoEtq > 779) then
    raise Exception.Create('Avanço de Etiquetas deve ser de 0 a 779');

  // Valor mínimo para Back-feed é 220 (Manual "PPLA&PPLB.pdf" ... pág. 18)
  wAvanco := aAvancoEtq + 220;
  Result  := Inherited ComandosFinalizarEtiqueta(NumCopias, wAvanco);
end;

Mas sobre esse assunto tem dois pontos

  1º pelo manual no avanço o mínimo é 220 e não o avanço mais 220

  2º no componente tem o campo backfeed e pelo que eu vi não está sendo usando em nenhum momento e o correto não seria ser usado com o seguir ?

function TACBrETQPpla.ComandosFinalizarEtiqueta(NumCopias: Integer;
  aAvancoEtq: Integer): AnsiString;
var
  wAvanco: Integer;
begin
  if (aAvancoEtq < 0) or (aAvancoEtq > 779) then
    raise Exception.Create('Avanço de Etiquetas deve ser de 0 a 779');

  // Valor mínimo para Back-feed é 220 (Manual "PPLA&PPLB.pdf" ... pág. 18)
  if BackFeed = bfOn then
    if aAvancoEtq < 220 then
      wAvanco := 220
    else
      wAvanco := aAvancoEtq;
  Result  := Inherited ComandosFinalizarEtiqueta(NumCopias, wAvanco);
end;

 

[Daniel Simoes]

Experimente implementar o método ComandoDimensoes, na classe PPLA, ele foi introduzido, para EscLabel e é chamado em TACBrETQClass.ComandosIniciarEtiqueta

function TACBrETQEscLabel.ComandoDimensoes: AnsiString;
begin
  Result := '';
  if (Dimensoes.Largura > 0) then
    AdicionarComandos('^S(CLS,P,' + IntToStr(ConverterUnidade(etqDots, Dimensoes.Largura)), Result);
  if (Dimensoes.Altura > 0) then
    AdicionarComandos('^S(CLS,L,'+IntToStr(ConverterUnidade(etqDots, Dimensoes.Altura)), Result);
  if (Dimensoes.EspacoEntreEtiquetas > 0) then
    AdicionarComandos('^S(CLS,C,'+IntToStr(ConverterUnidade(etqDots, Dimensoes.EspacoEntreEtiquetas)), Result);
  if (Dimensoes.EspacoEsquerda > 0) then
    AdicionarComandos('^S(CLS,G,'+IntToStr(ConverterUnidade(etqDots, Dimensoes.EspacoEsquerda)), Result);
end;

 

[chico_lopes]

2 horas atrás, Daniel Simoes disse:

Experimente implementar o método ComandoDimensoes, na classe PPLA, ele foi introduzido, para EscLabel e é chamado em TACBrETQClass.ComandosIniciarEtiqueta

function TACBrETQEscLabel.ComandoDimensoes: AnsiString;
begin
  Result := '';
  if (Dimensoes.Largura > 0) then
    AdicionarComandos('^S(CLS,P,' + IntToStr(ConverterUnidade(etqDots, Dimensoes.Largura)), Result);
  if (Dimensoes.Altura > 0) then
    AdicionarComandos('^S(CLS,L,'+IntToStr(ConverterUnidade(etqDots, Dimensoes.Altura)), Result);
  if (Dimensoes.EspacoEntreEtiquetas > 0) then
    AdicionarComandos('^S(CLS,C,'+IntToStr(ConverterUnidade(etqDots, Dimensoes.EspacoEntreEtiquetas)), Result);
  if (Dimensoes.EspacoEsquerda > 0) then
    AdicionarComandos('^S(CLS,G,'+IntToStr(ConverterUnidade(etqDots, Dimensoes.EspacoEsquerda)), Result);
end;

 

Eu tenho q procurar o manual desse EscLabel mas pelo visto ele está fazendo o cálculo do tamanho da etiqueta? 

 

Vou tentar replicar ele dentro do ACBrETQPpla 

 

e sobre o TACBrETQPpla.ComandosFinalizarEtiqueta você consegue dar uma analisada. 

[Daniel Simoes]

2 minutos atrás, chico_lopes disse:

Eu tenho q procurar o manual desse EscLabel mas pelo visto ele está fazendo o cálculo do tamanho da etiqueta? 

Citei a Unit do EscLabel, apenas como exemplo, de como implementar uma Sobrecarga, no método ComandoDimensoes