|
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 |
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 |
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 |
| All times are GMT +1. The time now is 12:58 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com