How to insert RUNNING page numbering THROUGHOUT all the worksheets

[Guest]

Could someone help me with this one please?

I received a file with many worksheets and a macro which will print out only
selected worksheets. The request was to insert page numbers at the bottom of
each page/worksheet to be printed out so that users could browse/leaf through
the printed pages by numbers.
The problem is, regular option of inserting page numbers does not serve the
purpose of distinguishing between the pages because pagination restarts for
each worksheet at 1.
And inserting tab names into the footer apparently is not what the user
wants either.
Is there a way to do this?
Would much appreciate help with this one!
The presentation is in 50 minutes...

Sub ACpackage()
'
' ACpackage Macro
' Macro recorded 10/23/2003 by yvonne_behan
'
' Keyboard Shortcut: Ctrl+Shift+Y
'
Columns("E:E").ColumnWidth = 29.14
Range("E11").Select
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveWindow.ScrollWorkbookTabs Sheets:=11
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
Sheets("Discrete Op margin vs budget").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.ScrollWorkbookTabs Sheets:=-6
ActiveWindow.ScrollWorkbookTabs Sheets:=1
Sheets("Q Discrete vs Budget").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-2
ActiveWindow.ScrollWorkbookTabs Sheets:=1
Sheets("Discrete Q vs Budget").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.ScrollWorkbookTabs Sheets:=6
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
Sheets("Op margin vs budget").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
Sheets("Q Summary vs Budget").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
Sheets("Q actual vs budget").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.ScrollWorkbookTabs Sheets:=11
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
Sheets("Discr Q Op margin vs prior yr").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-6
Sheets("Q Discrete Summary ").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.ScrollWorkbookTabs Sheets:=-5
Sheets("Discrete Q vs prior yr").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.ScrollWorkbookTabs Sheets:=8
ActiveWindow.ScrollWorkbookTabs Sheets:=1
Sheets("Op margin vs prior yr").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-4
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
Sheets("Q Summary ytd").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
Sheets("Q actual vs prior yr").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

 

[Tom Ogilvy]

If you select all the sheets in the order you want them printed (grouped
should appear at the top) and each sheet has Footers for page numbers, then
you should get sequential page numbers across all printed pages.

 

[Guest]

Tom,
Thank you very much for the tip!

However, when I recorded a new macro selecting the pages and then inserting
the page numbers in the Footer for the selected sheets, the selected sheets
did print out - with numbers, but otherwise completely blank!
What am I doing wrong?