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.
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!
Setting 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 your workbook is destined for the printed page, you need to be concerned with the layout of that page. Excel allows ...
Discover MoreDo you want to change the headers and footers that appear on different pages of your printout? Here's how you can get ...
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 © 2023 Sharon Parq Associates, Inc.
Comments