vba - Excel VBA 每第 n 行插入分页符

Question

我有下面的代码，除了在第 35 行之后插入分页符之外，它可以执行所有操作。有人可以帮忙吗？

Sub PrintSet()

    Dim rs As Worksheet
    Dim sPrintArea As String

    sPrintArea = "A1:AE65"
    For Each rs In Sheets
        rs.PageSetup.Orientation = xlLandscape
        rs.PageSetup.Zoom = False
        rs.PageSetup.FitToPagesWide = 1
        rs.PageSetup.FitToPagesTall = 2
        rs.PageSetup.PrintArea = sPrintArea
        rs.HPageBreaks.Add before:=Range("A36")                               
     Next rs

End Sub

Answer 1

像这样重写最后一行:

rs.HPageBreaks.Add before:=rs.Range("A36")

因此，您还添加了一个引用rs。它应该工作得更好。看看 Microsoft 关于引用范围的说法: https://msdn.microsoft.com/en-us/library/office/aa221547(v=office.11).aspx