Impressão com ESCPOS na Elgin i9

[Marcelo Zerbinati]

Olá,

Estou testando a impressão do Extrato em ESCPOS com a Elgin i9, e mesmo informando o número de linhas na propriedade "LinhasEntreCupons" do componente ACBrSATExtratoESCPOS o mesmo não obedece e corta o qrcode no meio.

A solução que encontrei foi fazer uma pequena alteração na função PulaLinhas, onde era FBuffer.Add(''); coloquei FBuffer.Add(' '); apenas um espaço, com isso a impressora não ignora e salta as linhas.

Antes:

procedure TACBrSATExtratoESCPOS.PulaLinhas(NumLinhas: Integer);
var
  i : integer;
begin

 

  if NumLinhas = 0 then
     NumLinhas := LinhasEntreCupons ;

 

  for i:=0 to NumLinhas do
   begin
     FBuffer.Add('');
   end
end;

 

Depois:

procedure TACBrSATExtratoESCPOS.PulaLinhas(NumLinhas: Integer);
var
  i : integer;
begin

 

  if NumLinhas = 0 then
     NumLinhas := LinhasEntreCupons ;

 

  for i:=0 to NumLinhas do
   begin
     FBuffer.Add(' '); // Inclui um espaço apenas
   end
end;

[Daniel Simoes]

Atualize seus fontes, e verifique o Change-Log txt de ontem...