返回列表下一主題上一主題發帖

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

ikboy

中學生 Rank: 2

帖子: 262
主題: 8
精華: 0
積分: 280
點名: 16
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2015-8-11
最後登錄: 2024-3-28

2016猴年全勤獎章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2015-8-24 22:15 | 只看該作者

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

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