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

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

我试过了

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

及

单元格1,7的值为125，该值随行长而明显变化

上述两个示例都已执行，但报告中没有任何更改

---

是否可以通过VBA在Excel中自动执行此操作，或者这是一个根本不可能实现的功能？

我看到一条评论，很快就被奇怪地删除了，建议使用

.PageSetup.PrintArea

而不是

.PageBreak

下面的代码起作用了：

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

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