返回列表 上一主題 發帖

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

准提部林

帖子
2848 
主題
10 
精華
0 
積分
2903 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2026-7-25 
1# 跳轉到 »
發表於 2016-1-19 10:42 | 顯示全部帖子
是指〔每一區段〕的結尾皆以一空白列隔開，
列印時不讓下個區段的開頭與上一區段的結尾印在同一張？？？

TOP

准提部林

帖子
2848 
主題
10 
精華
0 
積分
2903 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2026-7-25 
2#
發表於 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

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

TOP

        靜思自在 : 生氣，就是拿別人的過錯來懲罰自己。
返回列表 上一主題