Problema na Re-impressão de comprovante

Daniel Paixão-Cascavel · 8 Julho, 2020

Galera, estou com um problema aqui na re-impressao de comprovante TEF com ACBrPOSPrinter. Se eu faço vendas com um ou mais cartões e, logo após, vou re-imprimir um comprovante TEF especifico, o comprovante sai normal, porem, se tento novamente re-imprimir, não imprime e retorna a mensagem de 'ECF Não está livre'. Sei que devo estar deixando alguma coisa pra trás com relação ao status fictício da impressora. Alguem pode me dizer o que estou fazendo de errado? Segue abaixo meu codigo de impressão:

procedure TFrmRotVenda.TEFImprimeComprovante(ImagemComprovante: TStringList);
var ACBrPosPrinter:TACBrPosPrinter;
    Modelo:TACBrPosPrinterModelo;
begin
   if (ImagemComprovante=nil) then
      raise Exception.Create('Comprovante não pode ser "NULL"');
   try
      ACBrPosPrinter := TACBrPosPrinter.Create(nil);
      Modelo := TACBrPosPrinterModelo(TSingleParametros.Prm.Perifericos.Impressora.Modelo);
      ACBrPosPrinter.Modelo := Modelo;
      ACBrPosPrinter.Porta := TSingleParametros.Prm.Perifericos.Impressora.Device.PortaSerial;
      ACBrPosPrinter.Ativar;
      ACBrPosPrinter.Buffer.Text := ImagemComprovante.Text;
      ACBrPosPrinter.Imprimir;
      ACBrPosPrinter.PularLinhas(9);
      ACBrPosPrinter.CortarPapel(True);
      TEF.MudarStatusImpressora(tpsLivre);
   finally
      ACBrPosPrinter.Desativar;
      FreeAndNil(ACBrPosPrinter);
   end;
end;