(Resolvido) Fechar QuickReport... manualmente

[Douglas Soares]

Boa tarde....

tenho uma rotina pra gerar boletos e anexa-los num email... eu abro um relatório do quickreport e no afterpreview eu coloco pra ele exportar... só que a pessoa tem que fechar o quickreport daí.... como eu faria pra ele se fechar sozinho??? o close não funciona :wacko:

Obrigado

[Jhonas]

voce pode tentar com

QuickReport1.PreviewFinished(sender);

abraço

[Douglas Soares]

já consegui resolver...

coloquei seu código pra testar também porém não funcionou, não foi encontrado :unsure:

Mesmo assim obrigado pela ajuda.

Pra quem quiser o código.... coloque isso no OnCloseQuery do seu formulario que tem o quickreport :rolleyes:

procedure TfrmRelBoletoCaixa.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
var
i : integer;
myform : string;
begin
try
myform := 'QRStandardPreview';
i := 0;
while (screen.formcount > 1) and (i < screen.formcount) do
  if Screen.Forms[i].Name = myform then
  begin
    screen.forms[i].release;
    application.processmessages;
  end else inc(i);
except
end;
end;

Abraços