Printing page 1 of X

I thought I would be able to do this easily but its not working out...

Client has asked for an addition (to an existing report that uses  
PRINT FORM) of a 'Page 1 of X' label in the footer where X is the  
total number of pages in the print job. Since the print out is an  
invoice style job, the number of pages is based on the number of  
records used. However, some of the lines can grow to accommodate text  
as well.

Only way I can think to do this is to print the entire job, grab the  
total number of pages, cancel it, and then reprint it. However, if I  
print the entire job, then call PRINT BREAK(*) instead of PRINT BREAK  
then redo it again normally, nothing happens the second time.

My pseudo code...

For ($loop;1;1)

  main printing done here using PRINT FORM and PAGE BREAK(>)

   If ($loop=1)
    vL_TotalPages:=Printing page
    PAGE BREAK(*)
   Else
    PAGE BREAK
   End if

end for

Thanks.

Later,
Guy

**********************************************************************
The 4D v11 SQL Roadshow - coming to a city near you!
http://www.4D.com/roadshow/index.html

4th Dimension Internet Users Group (4D iNUG)
FAQ:  http://www.4d.com/support/faqnug.html
Archive:  http://dir.gmane.org/gmane.comp.lang.inug-4d.tech
Unsub:  mailto:4D_Tech-Unsubscribe@...
Post: mailto:4d_tech@...
Options: https://lists.4d.com/mailman/listinfo/4d_tech
**********************************************************************