Question

如何把excel中一个工作表中的多个表格分页打印

如题，从网站中导出了很多的表都汇集到一个工作表了，想找个办法分页打印。每个表的长度都不同所以不能固定高度，各表标题也不同，但是每个表的标题都是黑体加粗，最后都有一个“制表”两字做结尾，请问可否通过上述特点把表分出来或者设置成分页打印。

Answer 1

例如：现在工作簿中有4个表格，我希望每张纸上面打印一个表格，分别用4张纸打印出来。

第一步：进入“视图”选项卡，单击“工作簿视图”选项组中的“分页预览”；

第二步：上图“分页预览”中只有2页，分别是“第1页”和“第2页”。我们将光标移动右下角边框处，当鼠标变成双箭头时，按住左键不放，拖动边框，直到看见“第3页”和“第4页”的时候就放开鼠标；

第三步：现在Excel就可以打印4个页面出来了，但我们还需要将上面两个表格剪切到下面来才行，剪切完成如下图：

 现在分页已经完成了，打印工作簿的话，会打印4张纸，每张纸上面一个表格，下面再来说说如何自动分页打印！

Excel中自动分页页面设置:

1.纵向 / 横向设置：单击“页面布局”选项卡，单击“页边距”，选中最下面的“自定义边距”，在弹出的“页面设置”中可以选中“纵向”或“横向”；

2.分页的页边距设置：然后进入“页边距”设置上、下、左、右的边距大小；

3.所以页面的页眉页脚设置：你也可以自定义页任意设置眉和页脚。

4.Excel中快速插入分页符和删除分页符
先将光标定位到需要加分页的位置，然后单击“页面布局”选项卡中的“分隔符”，选中“插入分页符”或者“删除分页符”。如果想重新设置所以的分页效果，可以选中“重设所有分页符”。

Answer 2

Sub gin()
    ActiveSheet.ResetAllPageBreaks
    mrow = Range("a65535").End(xlUp).Row
    For i = 2 To mrow
        If Cells(i, 1) = "制表" Then
            ActiveSheet.HPageBreaks.Add Before:=Cells(i + 1, 1)
        End If
    Next
End Sub

Answer 3

在每个表的结尾处插入“分页符”，从“插入”菜单里可以找到。标题加粗可以手动设置。结尾的“制表”二字可以利用“文件”菜单-页面设置-页眉页脚，点击其中“自定义页脚”设置“制表”即可。