使用VBA更改PrintArea页面大小

Question

当PrintArea消耗超过1页时，您可以通过下图中的虚线调整分页视图中的页面大小比率：

有没有办法使用VBA调整大小比例？我无法找到允许PageSetup公开的任何属性。

Answer 1

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

Sub PageBreaks()
    Dim shtSheet As Worksheet

    Set shtSheet = ActiveSheet

    shtSheet.HPageBreaks.Add before:=Range("A10")
End Sub