返回列表 上一主題 發帖

[發問] 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

        靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。
返回列表 上一主題