Home Menu

Menu


ExcelBanter » Excel Newsgroups » Excel Programming > How to insert RUNNING page numbering THROUGHOUT all the worksheets
Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 13
Default How to insert RUNNING page numbering THROUGHOUT all the worksheets
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

Reply With QuoteReply With Quote
  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 27,285
Default How to insert RUNNING page numbering THROUGHOUT all the worksheets
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.

--
Regards,
Tom Ogilvy

"Nat Maxwell" wrote in message
...
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



Reply With QuoteReply With Quote
  #3   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 13
Default How to insert RUNNING page numbering THROUGHOUT all the worksh
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?


"Tom Ogilvy" wrote:

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.

--
Regards,
Tom Ogilvy

"Nat Maxwell" wrote in message
...
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




Reply With QuoteReply With Quote
Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes
Linear Mode Linear Mode

Posting Rules
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On

Similar Threads
Thread Thread Starter Forum Replies Last Post
Insert automatic page numbering into a cell, not a header or foote Catherine D Excel Discussion (Misc queries) 1 September 11th 09 12:04 AM
Page Numbering in Consecutive Worksheets Sea Urchin Excel Discussion (Misc queries) 2 February 21st 08 03:45 PM
Page numbering - grouped worksheets Charlotte Howard Excel Discussion (Misc queries) 0 November 5th 07 02:32 PM
how to insert page numbering in an excel cell Kevin Excel Discussion (Misc queries) 0 November 16th 05 09:45 PM
Auto page numbering for several worksheets Andy Excel Worksheet Functions 1 March 13th 05 04:41 AM


All times are GMT +1. The time now is 11:23 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"

 

Contact Us ExcelBanter forum home Privacy Statement