返回列表 上一主題 發帖

[發問] EXCEL VBA 問題 不知是否能在預覽列印的每一頁的分頁線 上移至空白列?

ikboy

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

2016猴年全勤獎章
1# 跳轉到 »
發表於 2016-1-19 10:04 | 顯示全部帖子
回復 1# 潘潔


    妳這問題要處理, 需要一些數據, 1. 一頁的總高度減(如有標題列的高度和),得出內容部份高度, 從而以容部高度為上限, 計算每行是否為空行和找出空行, 及累加行高達至最接近且<=容部高度為上限, 插入分頁線即可。
    求一頁的總高度的代碼為: Rows("1:" & ActiveSheet.HPageBreaks(1).Location.Row - 1).Height

TOP

        靜思自在 : 並非有錢魷是快樂，問心無愧心最安。
返回列表 上一主題