View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Tom Ogilvy Tom Ogilvy is offline
external usenet poster
 
Posts: 27,285
Default Insert Text at Bottom of Last Page

Look at the hPageBreaks collection.

? activesheet.hpagebreaks(activesheet.hpagebreaks.co unt).Location.Address
$A$52

--
Regards,
Tom Ogilvy

"Steve" wrote in message
...
Thanks in advance to everyone who tries to help me with this.

I have a spreadsheet that serves as a quotation page for services to
be provided. The number of pages of the quotation varies depending on
the amount of services.

My problem is how to automatically insert a disclaimer at the bottom
of only the last page, just above the footer. I have page numbers
printing in the footer.

When I select File, Page Setup and hit Enter, the dotted lines appear
to show where the page will end, so I can currently cut and paste the
five lines of text just above the dotted line. I would like to find a
way to automatically locted that dotted line (last row printing on the
last page) and insert the lines by using the BeforePrint event.

Any ideas?

Thanks,

Steve