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.
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.
Comprehensive VBA Guide Visual Basic for Applications (VBA) is the language used for writing macros in all Office programs. This complete guide shows both professionals and novices how to master VBA in order to customize the entire Office suite for their needs. Check out Mastering VBA for Office 2010 today!
Don't like the default date format used by Excel when you place the date in a header or footer? You can use a macro to ...
Discover MoreNeed your page numbers to not appear as regular Arabic numerals? Here's a way to get them to appear in a different ...
Discover MoreYou can easily create headers and footers for multiple worksheets by working with a selection set of the worksheets you ...
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 © 2021 Sharon Parq Associates, Inc.
Comments