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.
Program Successfully in Excel! John Walkenbach's name is synonymous with excellence in deciphering complex technical topics. With this comprehensive guide, "Mr. Spreadsheet" shows how to maximize your Excel experience using professional spreadsheet application development tips from his own personal bookshelf. Check out Excel 2013 Power Programming with VBA today!
Yes, Excel can work with Roman numerals, and it even provides a worksheet function that converts to them. How you use ...
Discover MoreSetting up a single footer line for your printouts is fairly easy. If you want to move part of the footer down a line so ...
Discover MoreIf you want to modify information that appears in the footer of a worksheet printout, on a page-by-page basis, you can ...
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