Please Note: This article is written for users of the following Microsoft Excel versions: 2007, 2010, 2013, and 2016. If you are using an earlier version (Excel 2003 or earlier), this tip may not work for you. For a version of this tip written specifically for earlier versions of Excel, click here: Using a Different Footer on Secondary Pages.
When creating a worksheet that will eventually be printed, you may want to use a different footer on the first page of your document than you do on the subsequent pages. There is no way to do this directly in Excel, but you can use a macro to accomplish the task.
The following macro will set the footers for a worksheet depending on what is being printed. Actually, it sets the footers for the first page, and then prints that page. Then it sets the footers for the other pages, and prints them.
Please Note:
This article is written for users of the following Microsoft Excel versions: 2007, 2010, 2013, and 2016. If you are using an earlier version (Excel 2003 or earlier), this tip may not work for you. For a version of this tip written specifically for earlier versions of Excel, click here: 
Sub PrintSheet()
Dim sP1Left As String
Dim sP1Center As String
Dim sP1Right As String
Dim sP2Left As String
Dim sP2Center As String
Dim sP2Right As String
' Define first-page footers
sP1Left = "First page left"
sP1Center = "First page center"
sP1Right = "First page right"
' Define second-page footers
sP2Left = "Second page left"
sP2Center = "Second page center"
sP2Right = "Second page right"
' Set up and print first page
With ActiveSheet.PageSetup
.LeftFooter = sP1Left
.CenterFooter = sP1Center
.RightFooter = sP1Right
End With
ActiveSheet.PrintOut 1, 1
' Set up and print other pages
With ActiveSheet.PageSetup
.LeftFooter = sP2Left
.CenterFooter = sP2Center
.RightFooter = sP2Right
End With
ActiveSheet.PrintOut 2
End Sub
To use the macro, all you need to do is change the footer definitions. Change the variable values in the "Define first-page footers" area and the "Define second-page footers" area in order to get just the output you want.
Note:
ExcelTips is your source for cost-effective Microsoft Excel training. This tip (11287) applies to Microsoft Excel 2007, 2010, 2013, and 2016. You can find a version of this tip for the older menu interface of Excel here: Using a Different Footer on Secondary Pages.
Save Time and Supercharge Excel! Automate virtually any routine task and save yourself hours, days, maybe even weeks. Then, learn how to make Excel do things you thought were simply impossible! Mastering advanced Excel macros has never been easier. Check out Excel 2010 VBA and Macros today!
Today's date is easy to add to a header, but what if you want to add a date that is adjusted in some manner? Adding ...
Discover MoreYes, Excel can work with Roman numerals, and it even provides a worksheet function that converts to them. How you use ...
Discover MoreDo you find that there is a lot of extra space around the data on your worksheet when it is printed? Changing the margins ...
Discover MoreFREE SERVICE: Get tips like this every week in ExcelTips, a free productivity newsletter. Enter your address and click "Subscribe."
2019-11-20 14:05:45
Willy Vanhaelen
In my opinion, this is a lot clearer:
Sub PrintSheet()
' Set up and print first page
With ActiveSheet.PageSetup
.LeftFooter = "First page left"
.CenterFooter = "First page center"
.RightFooter = "First page right"
End With
ActiveSheet.PrintOut 1, 1
' Set up and print other pages
With ActiveSheet.PageSetup
.LeftFooter = "Other pages left"
.CenterFooter = "Other pages center"
.RightFooter = "Other pages right"
End With
ActiveSheet.PrintOut 2
End Sub
(see Figure 1 below)
Figure 1. Fig 1
2017-06-13 13:07:48
Dennis Costello
I haven't run the experiments, but with all these tips that involve multiple <worksheet>.Print operations I'm concerned that each one might be a separately queued print job, which gives rise to two concerns:
- On corporate, shared printers, you'd get one or more, separate flag pages for each .Print operation
- If you were trying to do duplex printing, for this tip in particular, page 2 would start a new job on a new piece of paper, instead of being on the back side of page 1.
2016-05-07 17:12:12
Paul
Excel 2010 onwards does (I think) let you have a different first page header/footer and/or different odd and even header/footers.
Click File, choose Print and click
Page Setup at the bottom of the Print settings. On the Header/Footer tab you can now choose the options you require.
Click the Custom Header or Custom Footer button to see tabs for the different headers/footers you have opted for.
Got a version of Excel that uses the ribbon interface (Excel 2007 or later)? This site is for you! If you use an earlier version of Excel, visit our ExcelTips site focusing on the menu interface.
FREE SERVICE: Get tips like this every week in ExcelTips, a free productivity newsletter. Enter your address and click "Subscribe."
Copyright © 2022 Sharon Parq Associates, Inc.
Comments