时间戳

首页 > 解决方案 > 根据单元格中的行值设置分页符？

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

问题描述

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

我试过了

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

和

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

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

上面的两个示例都已执行，但报告中没有任何变化。

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

标签： excelvba

解决方案

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

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

推荐阅读