Footer and updates

Robie
5StarLounger
Posts: 656
Joined: 18 Feb 2010, 14:26

Footer and updates

Post by Robie »

HI

I have a footer which needs to be updated according to number of pages in document. For example

1 page then footer is displayed on first page
2 or more pages then footer is *not* displayed on first page but all other pages.

I have worked out a simple IF statement (if numpages = 1 then "footer" "") for the 1st page and it seems to function correctly except the changes are *not* updated in *real-time*. That is, if at the end of the first page I add a new paragraph and 2nd page is started, the footer on 1st pages does not go blank. It only goes blank when I print preview or update all fields. Is there any way of automating this process?

Thanks.

Robie

User avatar
HansV
Administrator
Posts: 78493
Joined: 16 Jan 2010, 00:14
Status: Microsoft MVP
Location: Wageningen, The Netherlands

Re: Footer and updates

Post by HansV »

You could provide a macro that shows, then hides print preview:

Code: Select all

Sub UpdateFooter()
  Application.ScreenUpdating = False
  ActiveDocument.PrintPreview
  ActiveDocument.ClosePrintPreview
  Application.ScreenUpdating = True
End Sub
The users will have to run this macro themselves (or print preview the document); I don't think monitoring the number of pages continuously would be a good idea, if it is possible at all.
Best wishes,
Hans

User avatar
DaveA
GoldLounger
Posts: 2599
Joined: 24 Jan 2010, 15:26
Location: Olympia, WA

Re: Footer and updates

Post by DaveA »

Do you have any sections breaks which may NOT have the paging included?

Remember that each section can have a different header and footer, and if NOT liked to previous, then that section will be empty.
I am so far behind, I think I am First :evilgrin:
Genealogy....confusing the dead and annoying the living