如何求得一頁能容下的行高總和

ikboy

Rem 早幾日前想將頁內一段區域做頁腳,想法是將一頁能容下的行高總和
Rem 減去頁頭和頁腳的行高總和,得出內容行高的和,從而重組列印,但當時未有方案,
Rem 如何求得一頁能容下的行高總和,現想用以下代碼計算,希望能拋磚引玉,請問有更好方法嗎?

Sub RowsHeightOfPage()
With ActiveSheet
If .HPageBreaks.Count Then
    r = .HPageBreaks.Item(1).Location.Row
    For i = 1 To r - 1
        rhs = rhs + Rows(i).Height
    Next
Debug.Print rhs '求得一頁能容下的行高總和
End If
End With
End Sub

don4831

Sub RowsHeightOfPage()
    rw = ActiveSheet.HPageBreaks.Item(1).Location.Row - 1
    Debug.Print Rows("1:" & rw).Height
End Sub

ikboy

回復 2# don4831


    多謝don4831指導