excel - 如何设置分页预览？

Question

我想自动设置分页预览。

我试过了

Worksheets("Stack").Range("A2:M33").PageBreak = xlPageBreakManual

我明白了

Unable to set Pagebreak Property of the range Class

Answer 1

我知道这已经晚了将近两年，但只是不想让这个问题得不到解答。我做了以下事情:

Dim WSh As Worksheet, Rng1 As Range, Rng2 As Range

Set WSh = Sheets("Stack")
    Set Rng1 = Range("A5")
    Set Rng2 = Range("N34")

WSh.ResetAllPageBreaks
    'From
    If Rng1.Row <> 1 Then WSh.HPageBreaks.Add before:=Rng1
    If Rng1.Column <> 1 Then WSh.VPageBreaks.Add before:=Rng2
    'To
    WSh.HPageBreaks.Add before:=Rng2
    WSh.VPageBreaks.Add before:=Rng2

成功了。当您管理“A”列或“1”行时，您只需要确保进行一些处理，但这可以通过几个 Ifs 轻松解决。