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

---

作者: 潘潔    時間: 2016-1-18 12:27     標題: EXCEL VBA 問題 不知是否能在預覽列印的每一頁的分頁線 上移至空白列?

我有份資料 在預覽列印時 要調整列印時不會將裡面資料分離 所以都會去拉分頁線至空白列

但資料有幾千筆 就要拉了幾十幾百頁的底線 希望有快速方法 可以直接幫我把每頁的分頁底線上移至空白列

麻煩各位了

---

作者: ikboy    時間: 2016-1-19 10:04

回復 1# 潘潔


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

---

作者: ML089    時間: 2016-1-19 10:05

列印前先將空白列隱藏，這樣會不會比較簡單。

---

作者: 准提部林    時間: 2016-1-19 10:42

是指〔每一區段〕的結尾皆以一空白列隔開，
列印時不讓下個區段的開頭與上一區段的結尾印在同一張？？？

---

作者: 潘潔    時間: 2016-1-19 22:50

回復 4# 准提部林


    嗯啊

---

作者: 准提部林    時間: 2016-1-20 10:15

Sub 手動設置分頁線()
Dim xR As Range
ActiveSheet.ResetAllPageBreaks '重設分頁線　
For Each xR In Range([A2], [A65536].End(xlUp))
　　'上一格若為〔空格〕，此列加入〔分頁線〕　
　　If xR(0) = "" Then Rows(xR.Row).PageBreak = xlPageBreakManual
Next
End Sub

無檔案參考，只能給方法，有誤差自行調整！

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)