Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Add footers in 20 worksheets at once
I have a EXCEL workbook with about 20 worksheets. These worksheets
are set up with different characteristics for printing, e.g., each has a different header and some are portrait and some are landscape. I want to add a common footer to all worksheets at once without messing up the exisiting print characteristics. Is there any way of doing that? Thanks. |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Add footers in 20 worksheets at once
Group all sheets Nick
Right click on a sheet tab and choose Select all sheets Then change the footer And then ungroup the sheets -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "NameNick" wrote in message oups.com... I have a EXCEL workbook with about 20 worksheets. These worksheets are set up with different characteristics for printing, e.g., each has a different header and some are portrait and some are landscape. I want to add a common footer to all worksheets at once without messing up the exisiting print characteristics. Is there any way of doing that? Thanks. |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Add footers in 20 worksheets at once
Sub Path_All_Sheets()
Set wkbktodo = ActiveWorkbook For Each ws In wkbktodo.Worksheets ws.PageSetup.RightFooter = ActiveWorkbook.FullName & " " & Chr(13) _ & Application.UserName & " " & Date Next End Sub Won't change any of the other print setup characteristics. Gord Dibben MS Excel MVP On Thu, 14 Jun 2007 08:32:45 -0700, NameNick wrote: I have a EXCEL workbook with about 20 worksheets. These worksheets are set up with different characteristics for printing, e.g., each has a different header and some are portrait and some are landscape. I want to add a common footer to all worksheets at once without messing up the exisiting print characteristics. Is there any way of doing that? Thanks. |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
Add footers in 20 worksheets at once
Ron
That would also force each sheet to have the other print charateristics of the active sheet thus changing orientation and the custom headers on each sheet. Gord On Thu, 14 Jun 2007 18:09:14 +0200, "Ron de Bruin" wrote: Group all sheets Nick Right click on a sheet tab and choose Select all sheets Then change the footer And then ungroup the sheets |
#5
Posted to microsoft.public.excel.misc
|
|||
|
|||
Add footers in 20 worksheets at once
Correct Gord.
Thanks -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Gord Dibben" <gorddibbATshawDOTca wrote in message ... Ron That would also force each sheet to have the other print charateristics of the active sheet thus changing orientation and the custom headers on each sheet. Gord On Thu, 14 Jun 2007 18:09:14 +0200, "Ron de Bruin" wrote: Group all sheets Nick Right click on a sheet tab and choose Select all sheets Then change the footer And then ungroup the sheets |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Different headers, same footers on multiple worksheets | Excel Discussion (Misc queries) | |||
How to copy headers/footers between worksheets | Excel Discussion (Misc queries) | |||
How to copy headers/footers across worksheets | Excel Discussion (Misc queries) | |||
No headers & footers in the worksheets | Excel Worksheet Functions | |||
Pre-set headers and footers for new worksheets | Excel Discussion (Misc queries) |