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

尝试是这样的：

Dim hpgbr As HPageBreak 
Dim hpgbrs As HPageBreaks 
Set hpgbr = hpgbrs.Add(Before:=Range("A36")) 

Answer 2

这对我的作品。我删除了变焦

Sub PrintSet() 
Dim rs As Worksheet 
Dim sPrintArea As String 

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

Answer 3

重写了最后一行：

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

因此，要添加一个参考rs也。它应该更好地工作。请参阅Microsoft说什么有关引用范围： https://msdn.microsoft.com/en-us/library/office/aa221547(v=office.11).aspx