ACBrETQ

[nazarenoneto]

Pessoal, esta tentando implementar impressão no ACBrETQ, e percebi que quando mando imprimir, esta avançando muito de uma linha para outra. Ai fui olhar o codigo e tem um avanco padrao de 220 mesmo que o avanco seja 0 (Sero).

procedure TACBrETQPpla.Imprimir(Copias: Integer = 1; AvancoEtq: Integer = 0);

var

   Temp, NCop : String;

begin

  Cmd := '';


  if (Temperatura < 0) or (Temperatura > 20) then

     Raise Exception.Create(ACBrStr('Informe um valor entre 0 e 20 para Temperatura'));

  Temp := IntToStrZero(Temperatura,2);


  if (Copias < 0) or (Copias > 9999) then

     Raise Exception.Create(ACBrStr('Tamanho máximo para o Número de Cópias 4 caracteres'));

  NCop := IntToStrZero(Copias,4);


  Cmd := STX + 'L' + CRLF + STX + Unidade + CRLF + 'H' + Temp + CRLF + 'D11' + CRLF +

         'Q' + NCop;


  {Inserindo comando iniciais na posicao Zero}

  ListaCmd.Insert(0, Cmd);


  Cmd := '';

  if AvancoEtq = 0 then

     AvancoEtq := Avanco;

  if (AvancoEtq < 0) or (AvancoEtq > 779) then

     Raise Exception.Create(ACBrStr('O Valor máximo para o Avanço de Etiquetas é 779'));


  AvancoEtq := AvancoEtq + 220; //nesta Linha


  Cmd := 'E' + CRLF + STX + 'f' + IntToStr(AvancoEtq) + CRLF ;


  if LimparMemoria then

    Cmd := Cmd + STX + 'Q' ;


  ListaCmd.Add(Cmd);


  fpDevice.EnviaString(ListaCmd.Text);

  ListaCmd.Clear;

end;

Queria ver a possibilidade de alterar essa linha, para o avanço padrão ser 0 (zero).

O que vcs me dizem?

[nazarenoneto]

Pessoal, mesmo alterando essa linha ai em cima, esta avançando mais do que eu informo.

[Daniel Simoes]

Vc chama o Imprimir apenas após montar toda a Etiqueta Certo ?

Geralmente o numero é irrelevante, pois a Impressora se baseia no "GAP" da Etiqueta para saber quando ela termina...

Verifique se a Etiqueta e o Ribon estão "montados" corretamente...