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
Footer and updates
-
- Administrator
- Posts: 78493
- Joined: 16 Jan 2010, 00:14
- Status: Microsoft MVP
- Location: Wageningen, The Netherlands
Re: Footer and updates
You could provide a macro that shows, then hides print preview:
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.
Code: Select all
Sub UpdateFooter()
Application.ScreenUpdating = False
ActiveDocument.PrintPreview
ActiveDocument.ClosePrintPreview
Application.ScreenUpdating = True
End Sub
Best wishes,
Hans
Hans
-
- GoldLounger
- Posts: 2599
- Joined: 24 Jan 2010, 15:26
- Location: Olympia, WA
Re: Footer and updates
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.
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
Genealogy....confusing the dead and annoying the living
Genealogy....confusing the dead and annoying the living