Как программно закрыть Preview?

yurza81

Сначала делаю так

frxDBDataset1->DataSet=CRC->DataSet;
   frxReport1->PrintOptions->PrintMode=pmJoin;
   frxReport1->PrintOptions->PrintOnSheet=9;
   frxReport1->ShowReport(true);

Потом идет обработка

void __fastcall TForm1::frxReport1AfterPrintReport(TObject *Sender)
{
for(int i=0;i<LIMITForm->DataSet->RecordCount;i++){
    LIMITKA2->SetParam("ID", Variant(LIMITForm->DataSet->FieldByName("ID")->AsInteger));
    LIMITKA2->Execute();
    LIMITForm->DataSet->Next();
   }
Form1->session->Commit();
}

Вот и хочется после Form1->session->Commit(); закрыть Preview
За ранее спасибо

gpi

В Delphi это будет примерно так:
if frxReport1.PreviewForm <> nil then
TfrxPreviewForm(frxReport1.PreviewForm).Close;