Как программно закрыть Preview?
Сначала делаю так
Потом идет обработка
За ранее спасибо
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За ранее спасибо
Комментарии
if frxReport1.PreviewForm <> nil then
TfrxPreviewForm(frxReport1.PreviewForm).Close;