试图创建分页符 [英] Trying to create page breaks

问题描述

我正在尝试在每20行后创建分页符，减去顶行（标题） 但我不确定如何修复代码。这只是我在条件pg中断时发现的，并且还没有为群组设置它。

     ; Dim CellRange作为范围

    Dim TestCell As Range

    ActiveSheet.ResetAllPageBreaks

   设置CellRange =选择

   适用于CellRange中的每个TestCell

       如果TestCell.Value<> TestCell.Offset（-1,0）.Value然后

            ActiveSheet.Rows（TestCell.Row）.PageBreak = xlPageBreakManual

       结束如果是
    Next TestCell

End Sub

解决方案

< blockquote>

你可以使用这个函数 

这里For循环从21开始，因为你提到了第一个分页应该是20 + 1（标题）。你可以调整它。在"步骤"之后提到的数字20。那是间隔。您可以根据自己的需要进行调整。

 Sub PageBreakAfter20（） 
 Dim totalRange As Range 
 ActiveSheet.ResetAllPageBreaks 
 Set totalRange = ActiveSheet.UsedRange 
 for irow = 21 To totalRange.Rows.Count Step 20 
 Rows（irow）。 PageBreak = xlPageBreakManual 
下一个
结束子
 

I'm trying to create page breaks after every 20 rows, minus the top row (headers) but I'm not sure how to fix the code. This is just something I found on conditional pg breaks, and haven't set it for groups yet.

    Dim CellRange As Range
    Dim TestCell As Range

    ActiveSheet.ResetAllPageBreaks

    Set CellRange = Selection
    For Each TestCell In CellRange
        If TestCell.Value <> TestCell.Offset(-1, 0).Value Then
            ActiveSheet.Rows(TestCell.Row).PageBreak = xlPageBreakManual
        End If
    Next TestCell
End Sub

解决方案

Hi,

You can use this function 

Here For loop is starting from 21 because you mentioned the first page break should be 20+1 (header). This you can adjust it. The number 20 which is mentioned after "Step" that is the interval. You can adjust that as well as per youir need.

Sub PageBreakAfter20()
    Dim totalRange As Range
    ActiveSheet.ResetAllPageBreaks
    Set totalRange = ActiveSheet.UsedRange
    For irow = 21 To totalRange.Rows.Count Step 20
       Rows(irow).PageBreak = xlPageBreakManual
    Next
End Sub

这篇关于试图创建分页符的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！