我在Excel中有一个报告,它根据记录中的信息生成不同数量的行。我设置了一个隐藏的单元格来打印最后一行的编号,之后我希望报表自动设置分页符,因为目前我每次都必须手动调整它。
我试过了
Worksheets("TIC").HPageBreaks.Add Before:=Worksheets("TIC").Rows(125)
和
Worksheets("TIC").Cells(1, 7).PageBreak = xlPageBreakManual
单元格1,7是具有125值的单元格,该值明显随行长度的不同而变化。
上面的两个示例都得到了执行,但报告中没有任何更改。
是否可以通过VBA在Excel中自动执行此操作,或者这是一个根本不可能实现的功能?
发布于 2020-02-10 18:33:37
我看到一条建议使用.PageSetup.PrintArea
而不是.PageBreak
的评论,这条评论很快就被奇怪地删除了,下面的代码起作用了:
w = Cells(1, 7)
a = "$A$1:$G$" & w
Worksheets("TIC").PageSetup.PrintArea = a
https://stackoverflow.com/questions/60147870
复制相似问题