使用VBA更改PrintArea页面大小

当PrintArea消耗超过1页时，可以通过下图中的虚线调整Page Break View中的页面大小比例：

有没有办法使用VBAresize比例？ 我无法find任何由PageSetup公开的属性，允许这个。

Answer 1

您可以使用HPageBreaks.add方法在给定位置创build新的分页HPageBreaks.add 。 例如：

 Sub PageBreaks() Dim shtSheet As Worksheet Set shtSheet = ActiveSheet shtSheet.HPageBreaks.Add before:=Range("A10") End Sub