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 時間: 2015-8-25 11:38
Sub RowsHeightOfPage()
rw = ActiveSheet.HPageBreaks.Item(1).Location.Row - 1
Debug.Print Rows("1:" & rw).Height
End Sub作者: ikboy 時間: 2015-8-25 13:53
