Excel VBA插入页面每隔n行打破一次

我有下面的代码，除了在第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 。 它应该更好地工作。 看看微软如何引用范围： https : //msdn.microsoft.com/en-us/library/office/aa221547(v=office.11​​).aspx

Answer 2

尝试这样的事情：

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

Answer 3

这对我有用。 我删除了缩放

 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