Pesquisar na Comunidade

Olá pessoal! Estou fazendo um teste exigido pela SevenPDV para Homologação do TRN Centre. O teste consiste em eu realizar uma venda pelo ECF com uma quantidade papel insuficiente para concluir a impressão do relatório gerencial. Neste teste, o papel deve acabar durante a impressão do comprovante da transação. Após identificar o erro, o sistema deve apresentar uma mensagem ao operador. Até ai beleza. O sistema deve apresentar uma mensagem dando opção do operador tentar ou não reimprimir o Relatório Gerencial. Caso o operador informe SIM - o sistema deve cancelar o Relatório Gerencial anterior e imprimir novamente em 2 vias. Quando eu faço isso a impressora imprime um pedaço (acho que do que ficou pendente do RG anterior) em seguida reimprime o RG em 2 vias normalmente, mas em seguida abre um novo RG em branco. Alguém poderia me ajudar a identificar o que eu estou fazendo de errado? Abaixo o trecho do meu código e em seguida a imagem de como sai o relatório. Agradeço desde já a atenção. if pbmTipo = 'TRN' then begin repeat try if sTipoAplicacao <> taNFCe then begin frm_principal.ACBrECF.FechaRelatorio; frm_principal.ACBrECF.RelatorioGerencial(Texto.Lines,2); end; OK := True; except if Application.MessageBox(PChar('Falha durante a impressão' + #13 + #13 + 'Deseja tentar imprimir novamente?'), 'Falha na impressão', MB_YESNO + MB_DEFBUTTON1 + MB_ICONQUESTION) = ID_YES then OK := False else begin OK := True; Result := False; ShowMessage('A transação será cancelada.'); frm_principal.ACBrECF.FechaRelatorio; end; end; until OK;