bottom
Great ExcelTips!
         
Your e-mail address is safe!
Close Note

Tips.Net > ExcelTips Home > Page Setup > Page Numbers > Roman Numerals for Page Numbers

Roman Numerals for Page Numbers

Summary: Add page numbers to a worksheet, and they print out as Arabic numerals. If you want to use Roman numerals instead, you’ll want to use the techniques described in this tip. (This tip works with Microsoft Excel 97, Excel 2000, Excel 2002, Excel 2003, and Excel 2007.)

Excel includes a worksheet function (ROMAN) that allows you to convert Arabic numbers into Roman numerals. You may wonder if there is any such function that allows you to print Roman numerals as page numbers on a printout.

There is no built-in feature that allows you to do that, but you can create a macro that will do the trick. Consider the following macro:

Sub RomanPageNums()
    Dim iPages As Integer
    Dim J As Integer

    ' Get count of pages in active sheet
    iPages = ExecuteExcel4Macro("Get.Document(50)")

    ' Print worksheet, page by page
    With ActiveSheet
        For J = 1 To iPages
            ' Set page letter
            .PageSetup.CenterFooter = _
              Application.WorksheetFunction.Roman(J)
            ' Print page J
            .PrintOut From:=J, To:=J
        Next J
    End With
End Sub

This macro first figures out how many pages are in your printout, and assigns the value to the iPages variable. It then steps through each page, changing the page number in the center portion of the footer prior to printing each page. The page number is set by converting the current page number (J) to a Roman numeral using the ROMAN worksheet function.

If you want the Roman numerals to appear in other parts of the footer, you can replace the .CenterFooter property with either .LeftFooter or .RightFooter. You can also use .LeftHeader, .CenterHeader, or .RightHeader, if desired.

The code in the RomanPageNums macro works in all the recent versions of Excel. If you are using Excel 2000 or greater, you could also replace the actual line that sets the footer with the following code:

            .PageSetup.CenterFooter = Application.Roman(J)

Tip #2518 applies to Microsoft Excel versions: 97 | 2000 | 2002 | 2003 | 2007


Make Home Buying Less Stressful! Why face the annual problems associated with Christmas debt? Learn how to avoid that debt and conquer your financial challenges.
 
Check out Buying a Home Checklist today!

Helpful Links

Ask an Excel Question
Make a Comment

Tips.Net Home

ExcelTips FAQ
ExcelTips Premium

Learn Access Now

Beauty Tips
Bugs and Pests Tips
Car Tips
Cleaning Tips
College Tips
Cooking Tips
Excel2007 Tips
ExcelTips
Family Tips
Gardening Tips
Health Tips
Home Tips
Money Tips
Organizing Tips
Pet Tips
Word2007 Tips
WordTips

Advertise on the
ExcelTips Site

 

Great Info!

Get tips like this every week in ExcelTips, a free productivity newsletter. Enter your e-mail address and click "Subscribe."
     
(Your e-mail address will never be shared with anyone, ever.)