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
|