linshin1999

我的分頁預覽的進入點應該對的吧,(檢視---->分頁預覽)
凸槌板主上傳的範例檔好像也没有標題列設定.

Hsieh

回復 10# linshin1999

那可能是上下邊界問題
在預覽列印中，顯示邊界，調整上下邊界讓列印區域容納50列

下載 (21.47 KB)

2010-12-27 16:42

linshin1999

版主大大,我有做過模摩,應該是我的VBA有問題,因為我模摩的檔案没問題,我會把問題找出來,可能是我的清單没完全活化,謝謝!!

GBKEE

回復 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

複製代碼

linshin1999

謝謝GBKEE版主,我會去試試看,有問題再請教.

linshin1999

GBKEE 這就是一個自動分頁的函數吧,就是我要的,謝謝你的答案.