打印区域每页的行数答案

【问题标题】：Number of rows on each page in print area打印区域每页的行数
【发布时间】：2018-10-15 10:52:00
【问题描述】：

有什么方法可以确定每个打印页面的打印区域内的每页有多少行？由于我的宏中的“换行文本”命令，可以为每个页面安装不同数量的行。我希望宏遍历整个打印区域，并且可以在每页上安装计数行。我的打印区域是 A1:C111。

我已经尝试过这个，但没有结果：

Sub t()
Dim printRng As Range, lastRow As Long

Set printRng = Range("A1:C111")
ActiveSheet.PageSetup.PrintArea = printRng
lastRow = printRng.Row + printRng.Rows.Count - 1
End Sub

【问题讨论】：

标签： excel vba count row

【解决方案1】：

您可以使用HPageBreaks 获取所有水平分页符。对于每个分页符，您可以确定行号Location.Row。如果减去之前的分页符的行数，则得到每页的行数。

Option Explicit

Public Sub CountRowsEachPage()
    Dim LastPb As Long
    LastPb = 1 'initialize

    Dim pb As HPageBreak
    For Each pb In Worksheets("Sheet1").HPageBreaks
        Debug.Print pb.Location.Row - LastPb 'shows rows per page on the intermediate window
        LastPb = pb.Location.Row
    Next pb
End Sub

【讨论】：