Please Note: This article is written for users of the following Microsoft Excel versions: 97, 2000, 2002, and 2003. If you are using a later version (Excel 2007 or later), this tip may not work for you. For a version of this tip written specifically for later versions of Excel, click here: Leading Zeros in Page Numbers.
Written by Allen Wyatt (last updated May 30, 2020)
This tip applies to Excel 97, 2000, 2002, and 2003
Jackie asked if there was a way to include leading zeroes in the page numbers placed in a footer. She needs her page numbers to always be five characters long, with leading zeroes, as necessary, to fill out the length. Thus, page numbers would be 00001, 00002, etc.
Excel doesn't provide very good formatting for its page numbers. One solution (perhaps the most viable) is to print each page in your worksheet, one at a time, changing the page number as you go. This macro takes that approach:
Please Note:
This article is written for users of the following Microsoft Excel versions: 97, 2000, 2002, and 2003. If you are using a later version (Excel 2007 or later), this tip may not work for you. For a version of this tip written specifically for later versions of Excel, click here:
Sub FormattedPageNums()
Dim iPages As Integer
Dim J As Integer
Dim sFormat As String
sFormat = "00000"
' Get count of pages in active sheet
iPages = ExecuteExcel4Macro("Get.Document(50)")
With ActiveSheet
For J = 1 To iPages
.PageSetup.CenterFooter = Format(J, sFormat)
.PrintOut From:=J, To:=J
Next J
End With
End Sub
The macro discovers how many pages are in the entire printout, and then steps through each page of that printout. Prior to printing each page, individually, the .CenterFooter property is set equal to a formatted string that represents the page number with leading zeros.
You can modify the macro, as desired, to place different information in the footer. You could also change the area of the footer that is changed by using .LeftFooter or .RightFooter instead of .CenterFooter.
Note:
ExcelTips is your source for cost-effective Microsoft Excel training. This tip (3055) applies to Microsoft Excel 97, 2000, 2002, and 2003. You can find a version of this tip for the ribbon interface of Excel (Excel 2007 and later) here: Leading Zeros in Page Numbers.
Solve Real Business Problems Master business modeling and analysis techniques with Excel and transform data into bottom-line results. This hands-on, scenario-focused guide shows you how to use the latest Excel tools to integrate data from multiple tables. Check out Microsoft Excel 2013 Data Analysis and Business Modeling today!
Need to copy headers and footers from one worksheet to another? How about from one workbook to another? Here are some ...
Discover MoreUsing a macro to add the full path name into a header or footer in an Excel worksheet.
Discover MoreReferencing information between cells in a worksheet is a piece of cake using some elemental formulas. You cannot, ...
Discover MoreFREE SERVICE: Get tips like this every week in ExcelTips, a free productivity newsletter. Enter your address and click "Subscribe."
There are currently no comments for this tip. (Be the first to leave your comment—just use the simple form above!)
Got a version of Excel that uses the menu interface (Excel 97, Excel 2000, Excel 2002, or Excel 2003)? This site is for you! If you use a later version of Excel, visit our ExcelTips site focusing on the ribbon interface.
FREE SERVICE: Get tips like this every week in ExcelTips, a free productivity newsletter. Enter your address and click "Subscribe."
Copyright © 2024 Sharon Parq Associates, Inc.
Comments