Excel每页中如何只打印固定行数-Excel教程

在生产环境下有时候有这样的需求，那就是Excel中每页只打印固定的行数，例如需要下发一份工作记录表，需要每人填写20行，为了方便尽量每人一页纸，如果数量较小的时候可以手动依次进行调整打印，若数量较多的时候则这个工作就显得无比繁琐，那么是否有什么更简单的办法呢，Soga容易，通过调整行高来实现，且OUT啦，此处即为大家简绍通过宏代码实现“Excel每页中如何只打印固定行数”；

详细的操作方法或具体步骤

如下一份Excel表格，页数众多且每行内容并不相同，由于生产所需，需要对该Excel表格进行打印每页都有表头并且每页只打印20行

打开需要打印的Excel表格，依次单击“开始>选项”，在打开的excel选项对话框中单击左侧“自定义功能区”菜单，在右侧勾选“开发工具”选项，勾选完成后单击”确定”；

完成上述设置后，依次单击“开发工具>录制宏”；

在弹出的录制宏对话框保持默认选择单击“确定”；

完成上述操作后，单击菜单中的“停止录制”；

此时单击“宏”，在弹出的宏对话框中选择上步建立的宏选项单击“编辑”；

在打开的宏编辑对话框中将下述代码粘贴到宏编辑对话框中；

Sub 分页()

Dim i, k As Integer

k=Range("a65536").(xlUp).Row

For i=4 To k

If i Mod 20=0 Then '当20行 分页

Cells(i + 1, 1).Select

ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell

If

Next

Sub

完成上述操作后依次关闭宏对话框；

完成上述操作后单击宏，在宏对话框中选择上步骤中编辑好的宏“分页”选择“执行”；

完成上述操作后依次单击“页面布局>打印标题”，在弹出的“页面设置”对话框中单击“顶端标题行”后的向上箭头；

此时页面设置自动收缩，鼠标变成向右的箭头，此时选择标题行；

选择完成后单击页面设置后的向下箭头；

完成上述操作后在页面设置对话框中单击“确定”；

完成上述操作后即可执行Ctrl+P进行打印，结果如下每页20行并且带有表头；

经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。作者声明：本文系本人依照真实经历原创，未经许可，谢绝转载。