解决这个问题最好的方法就是用宏了，做一个简单的循环，打印一张改一下页码。 具体代码如下，应该可以通用。记得打印前将电脑上的默认打印机设置为虚拟打印机，以免浪费纸张，调试好之后，可以将默认打印机再改成真实的打印机，运行一下宏就万事OK了。 Option Explicit Sub 打印表格() On Error Resume Next Dim rng As Range, i%, j% Set rng = Application。
InputBox("请选择要打印的表格所在单元格区域", "选择单元格", Type:=8) If Not rng Is Nothing Then j = InputBox("请输入要打印的页数，只能输入正整数！", "数值输入", 30) '定义需要打印的页数 If IsNumeric(j) Then If Val(j) > 0 Then For i = 1 To j rng。
Cells(rng。Rows。Count - 1, Int((rng。Columns。Count + 1) / 2)) = "第 " & i & " 页，共 " & j & " 页" rng。PrintOut Next i End If End If End If Set rng = Nothing End Sub。
把你在excel里做的表格复制到word里，复制30份，在每份之间插入分页符（插入-分隔符-分页符），然后再插入页码（插入-页码）就可以了，打印出来就是30张页码不同但表格内容相同的了。
表格下面自己改页数吧！改一个打印一个！也不费事！或者先加个页角，把表格设置成刚好一页，然后复制个三十张！预览一下应该没问题
有时，需要打印Excel工作表连续页码。那么如何打印Excel工作表连续页码呢？打印Excel工作表连续页码的方法很简单。本文就来介绍一下打印Excel工作表连续页码的方法。 默认情况下，打印Excel表格时，每个工作表中的表格页码都是从1开始编号的。
若要将多个工作表的表格页码连续排列，怎么操作呢？ 首先查看第一个工作表的总页数，并切换到第二个工作表。依次点击“文件”→“页面设置”，选择“页眉/页脚”选项卡，点击“自定义页眉”（或“自定义页脚”）调出对话框。根据需要点击其中的“左”、“中”或“右”框，再点击带有“#”字样的按钮，即可将“&〔页码〕”放入框中。
若要让第二个工作表的首页码接着第一个工作表的尾页码，只须在“&〔页码〕”后输入后者的总页数（即尾页码，例如11），使其变成“&〔页码〕+11”的样子。，还可以在“&〔页码〕+15”前后加上“第”和“页”字样，使其变成“第&〔页码〕+11页”。
这样，就可以打印页码连续的多个工作表了。 需要说明的是，采用上述方法打印连续页码时，“页面设置”、“页面”选项卡中的“起始页码”选项应为“自动”。 另外，介绍一个打印行号和列标的方法。依次点击“文件”→“页面设置”，选择“工作表”标签，选中“行号列标”复选框即可。
在同一个文档中复制同样的内容至需要的页数，然后在单击文件-页面设置-页眉页脚进行选择就行了。
