每页自动打印 1-5 行，然后 6-10 行等

【问题标题】：Automatically Printing rows 1-5, then 6-10 etc. per page每页自动打印 1-5 行，然后 6-10 行等
【发布时间】：2013-11-16 19:02:38
【问题描述】：

我有一个 750 个家庭地址的 Excel 列表，慈善机构将向这些地址提供感恩节晚餐。我需要将 5 个家庭的页面交给 150 个不同的司机。

有没有办法在一个页面上自动打印第 1-5 行，然后在下一页上打印第 6-10 行，等等，直到打印完所有 750 个系列？

尝试使用较大的底部边距，但效果不佳，因为某些行包含更多关于家庭的文本。

【问题讨论】：

【解决方案1】：

这可以通过宏轻松完成。

粘贴以下代码。

Sub formatSheets()

For i = 5 To 750 Step 5
    ActiveSheet.HPageBreaks.Add Before:=Cells(i + 1, 1)
Next
End Sub

这将格式化工作表以在每五行后添加一个分页符，从而产生 150 个工作表，每个工作表有 5 个地址。

话虽如此，那是 150 张纸，只有 5 个地址。一张纸上的两组五个地址并手动将它们切成两半就足够了吗？ :)

【讨论】：