整了一下午，终于把方法找到了，受到一篇文章的启发，特写此教程。
（让我受到启发的文章的链接：http://didiwei2007.blog.hexun.com/56521649_d.html，深表感谢！）
一、 确保默认打印机正确。
二、按Alt和F11进入宏界面，点菜单的插入，模块，粘贴如下代码：
Sub test()
Dim i As Integer
For i = 1 To 8 ‘标记一'
ActiveSheet.PageSetup.RightFooter = i'标记二'
ActiveSheet.PrintOut
Next i
End Sub
三、直接按F5运行此宏
后记：标记一表示此处的数字可以修改，用于输入你想要的起始页码和结束页码。
标记二表示此处是在右下角输入页码，如果想要在页眉输出页码的话输入RightHeader，其中Right是右边，Left左边，Center是中间，如果想显示成“第几页”的话就在=后面输入"第"& i & "页"。如果想输入“第几页 共10页”的话就把其改为"第"& i & "页 共10页"。（记住& i &在i之间必须有空格！还有双引号必须是英文状态的！）
