Invoice Page Footers and Report Footers

Sometime ago Neil gave me a brilliant way of controling an invoice 
remittance issue that meant that a remittance advice would appear at the 
bottom of the last page.

Unfortunately the process also leaves a large blank area at the bottom of 
the previous pages, (the same size as the remittance)
I can understand why it does but I have to find a way around it. It would be 
ideal if I could influence the Report Footer to appear at the bottom of the 
last page.

Any ideas?
Regards
Ian


The procedure was

SUB INVA()
 DIM doit%%

 REPORT USING "INVMASTR"
 BEFORE REPORT
     SET REPORT PAGE "H_REPORT"
     OUTPUT REPORT PAGE
 END REPORT

 AFTER REPORT
     doit%% = 1
 END REPORT

 HEADING
     SET REPORT PAGE "H_PAGE"
     OUTPUT REPORT PAGE
 END HEADING

 FOOTING 1
      IF doit%% = 1 THEN
        SET REPORT PAGE "F_PAGE"
        OUTPUT REPORT PAGE
     END IF
 END FOOTING

 AFTER SELECT
     SET REPORT PAGE "F_SELECT"
     OUTPUT REPORT PAGE
 END SELECT

 SET QUERY ON
 SET QUERY LOCK OFF
 SET FIRST PAGE HEADING OFF

     SELECT ;
       WHERE InvRef_No.FINV = InvRef_No.FINVDTL AND Hide.FINVDTL = ""
AND 
RetailClient_No.FINV = RetailClient_No.FRETAIL AND SectNo.FINV = 
SectNo.FSECTION AND InvRef_No.FINV = InvRef_No%
       ORDER REPORT sort.FINVDTL
       TO PRINTER
 END SUB