返回列表 上一主題 發帖

[分享] 善用錄製巨集可以找到很多問題的答案,以自動分頁為例.

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2010-12-28 09:40 | 顯示全部帖子
回復 13# linshin1999
在分頁預覽模式下 :
移動任何自動分頁線(虛線) 就變成手動(實線)
第一條自動分頁線(虛線) 如往上拖移小於 第一條自動分頁線(虛線)  是無法 將所有分頁線固定在移動的倍數列上
第一條自動分頁線(虛線) 如往下拖移大於 第一條自動分頁線(虛線)  可將所有分頁線固定在移動的倍數列上
給你一程序試試看
  1. Sub Ex()
  2. Dim Rng As Range, R%, C%, i%, A%
  3. With ActiveSheet '作用中的工作表
  4. Set Rng = .Range("A1:J182") '所要印列的一連續的範圍
  5. R = 50 '印列每頁固定之列數
  6. C = Rng.Columns.Count '一連續的範圍的欄數
  7. With .PageSetup '印列的設定
  8. .Zoom = False '停止縮放
  9. .FitToPagesTall = 1 '設定為1頁高
  10. .FitToPagesWide = 1 '設定為1頁寬
  11. .CenterHorizontally = True '頁面上的工作表是水平置中
  12. .CenterVertically = True '頁面上的工作表是垂直置中
  13. End With
  14. For i = 1 To Rng.Rows.Count '所要印列的一連續的範圍的總列數
  15. A = IIf(Rng.Rows.Count > i + R, R, Rng.Rows.Count - i + 1)
  16. .PageSetup.PrintArea = Rng(i, 1).Resize(A, C).Address '設定要列印範圍的位置字串
  17. i = i + R - 1
  18. .PrintPreview '印列預覽
  19. '.PrintOut '印列
  20. Next
  21. End With
  22. End Sub
複製代碼

TOP

        靜思自在 : 君子立恆志，小人恆立志。
返回列表 上一主題