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.
Professional Development Guidance! Four world-class developers offer start-to-finish guidance for building powerful, robust, and secure applications with Excel. The authors show how to consistently make the right design decisions and make the most of Excel's powerful features. Check out Professional Excel Development today!
How do you want your page numbers to appear on your printed worksheets? Chances are good that you want them to be ...
Discover MoreYou can easily create headers and footers for multiple worksheets by working with a selection set of the worksheets you ...
Discover MoreToday'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 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 © 2020 Sharon Parq Associates, Inc.
Comments