>>In the procedure, which calls your report, put
>>private nLastPage
>>nLastPage=0
>
>>In Init of your report you can put:
>

>> if vartype(m.nLastPage)="N"
>>    if m.nLastPage>0 && Last Page was already calculated
>>    else
>>      report form myReport to file dummy.txt noconsole
>>      nLastPage=_pageno
>>      erase dummy.txt
>>    endif
>>  else
>>     && Should never happend, but if it's, the calling procedure doesn't set >this property
>>  endif

>
>Nadya,
>
>I will not call the report from with the Init of the report. This may get
>into an infinite loop.
>I would rather do it in 2 report form statements:
> report form myreport NOCONSOLE
> M.nLastPage=_pageno
> report form myreport TO PRINT NOEJECT NOCONSOLE NOWAIT
>
>Kam.

How does the above code execute an infinitive loop? Actually, I never use Report DE too... Basically, if the report is called by the form and the data for the report would not change during life of this form, we can add a new property to the form nTotalPages, initialize it to 0. Then in the procedure, which calls the report, check for this form property, so we would not need to call this report to dummy file (I use this technique always instead of screen, since it provides more accurate result) more, than it's needed...