根据单元格中的行值设置分页符吗？

Question

我在Excel中有一个报告，该报告根据记录中的信息生成不同数量的行。我已经设置了一个隐藏单元格，用于打印最后一行的编号，之后我希望报表自动设置分页符，因为当前每次必须手动对其进行调整。

我已经尝试过

Worksheets("TIC").HPageBreaks.Add Before:=Worksheets("TIC").Rows(125)

和

Worksheets("TIC").Cells(1, 7).PageBreak = xlPageBreakManual

单元格1,7是具有125值的那个，它显然会根据行长而变化。

以上两个示例均已执行，但报表中没有任何更改。

是否可以通过VBA在Excel中自动执行此操作，或者是根本无法执行的功能？

Answer 1

[我看到一条评论，不久后被奇怪地删除，建议使用.PageSetup.PrintArea而不是.PageBreak并且以下代码有效：

w = Cells(1, 7)
a = "$A$1:$G$" & w
Worksheets("TIC").PageSetup.PrintArea = a