>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.