当您打印工作表时，您可以让Excel在打印输出的页眉或页脚中包含各种项目。您可以包括的一件事是要打印的页面的页码。该页码相当普通，它是所打印页面的阿拉伯值，如1、2、3等。

有些人可能渴望一种打印页面字母（A，B，C）而不是页面编号（1、2、3）的方法。在Excel中没有执行此操作的内在方法。但是，您可以开发一个宏，该宏将找出应该与页面关联的字母，然后在页脚中使用该字母。下面的宏就是这样做的：

Sub LetterPageNums()

Dim sArr(27 * 26) As String     Dim iPages As Integer     Dim J As Integer, K As Integer

' Fill page letter array     ' "A", "B", "C", ...,"AA", "AB", etc.

For J = 0 To 26         For K = 1 To 26             If J > 0 Then                 sArr((J * 26) + K) = Chr(J + 64) & Chr(K + 64)

Else                 sArr(K) = Chr(K + 64)

End If         Next K     Next J

' 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 = sArr(J)

' Print page(J)

.PrintOut From:=J, To:=J         Next J     End With End Sub

首先，宏找出页码的字母等价形式，并将它们放入数组中。在这种情况下，最多可以计算702个页面字母，对于任何打印作业来说，这应该绰绰有余。字母是A到Z，然后是AA到AZ，BA到BZ，一直到ZA到ZZ。

然后，将iPages设置为工作表中的页面数。最后，每页都单独打印，并将页面字母放入工作表的中心页脚中。如果要将页面字母放在其他位置，请使用.LeftFooter或.RightFooter而不是.CenterFooter属性。 （如果需要，您也可以使用.LeftHeader，.CenterHeader和.RightHeader。）

注意：

如果您想知道如何使用此页面（或_ExcelTips_网站上的任何其他页面）中描述的宏，我准备了一个特殊页面，其中包含有用的信息。

点击此处在新的浏览器标签中打开该特殊页面。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本技巧（12930）适用于Office 365中的Microsoft Excel 2007、2010、2013、2016、2019和Excel。您可以在此处为Excel的较早菜单界面找到此技巧的版本：

更改页码格式。