打印区域中每页的行数

Question

是否有任何方法可以确定每个打印页的打印区域内的每个页面上有多少行？由于宏中有"Wrap“命令，每个页面可以安装不同数量的行。我希望宏通过整个打印区域和计数行可以安装在每一页。我的打印区域是A1:C 111。

我试过做这件事，但没有结果：

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

Answer 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