Informative display

[DanNorris2000]

When the code below executes I would like to hide all other forms and throw a form up with the name of the current report that is printing displayed with maybe a hour glass that shows that something is happening or at least display the report name in the "printing records box". I will be running several report from this program



Set CrxReport = crxApplication.OpenReport("k:\vfp\reinsurance\reports\32pf.rpt&quot

' Use the DiscardSavedData method to ensure that your report hits the Database and refreshes the data
CrxReport.DiscardSavedData

CrxReport.ParameterFields.GetItemByName("bookfrom&quot.AddCurrentValue Val(strbookfrom)
CrxReport.ParameterFields.GetItemByName("bookto&quot.AddCurrentValue Val(strbookto)
CrxReport.PaperOrientation = crLandscape
CrxReport.PrintOut False, 1, True, 1, 9999

 

[qureshi]

The DoEvents statement can be placed just before displaying a form. This will update the screen. Hope it helps

Qureshi