- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
14#
發表於 2010-12-28 09:40
| 只看該作者
回復 13# linshin1999
在分頁預覽模式下 :
移動任何自動分頁線(虛線) 就變成手動(實線)
第一條自動分頁線(虛線) 如往上拖移小於 第一條自動分頁線(虛線) 是無法 將所有分頁線固定在移動的倍數列上
第一條自動分頁線(虛線) 如往下拖移大於 第一條自動分頁線(虛線) 可將所有分頁線固定在移動的倍數列上
給你一程序試試看
- Sub Ex()
- Dim Rng As Range, R%, C%, i%, A%
- With ActiveSheet '作用中的工作表
- Set Rng = .Range("A1:J182") '所要印列的一連續的範圍
- R = 50 '印列每頁固定之列數
- C = Rng.Columns.Count '一連續的範圍的欄數
- With .PageSetup '印列的設定
- .Zoom = False '停止縮放
- .FitToPagesTall = 1 '設定為1頁高
- .FitToPagesWide = 1 '設定為1頁寬
- .CenterHorizontally = True '頁面上的工作表是水平置中
- .CenterVertically = True '頁面上的工作表是垂直置中
- End With
- For i = 1 To Rng.Rows.Count '所要印列的一連續的範圍的總列數
- A = IIf(Rng.Rows.Count > i + R, R, Rng.Rows.Count - i + 1)
- .PageSetup.PrintArea = Rng(i, 1).Resize(A, C).Address '設定要列印範圍的位置字串
- i = i + R - 1
- .PrintPreview '印列預覽
- '.PrintOut '印列
- Next
- End With
- End Sub
|
|
發表於 2010-12-27 13:45
| 
