- 帖子
- 199
- 主題
- 45
- 精華
- 0
- 積分
- 252
- 點名
- 0
- 作業系統
- windows 7 (X64)
- 軟體版本
- office 2010 (x64)
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 桃園
- 註冊時間
- 2010-12-24
- 最後登錄
- 2020-3-31
 
|
謝謝Hsieh,GBKEE兩位版主的指導,自動分頁可以這寫:
Sub 自動分頁
Dim page_count As Long
Dim i As Long
Dim row_index As Long
Dim str_row_index As String
Dim first_row As Long
Dim jump_page
ActiveWindow.View = xlPageBreakPreview
first_row = 50
jump_page = 50
For i = first_row To rows_count Step jump_page
page_count = page_count + 1
str_row_index = "A" + Trim(Str(i + 1))
Set ActiveSheet.HPageBreaks(page_count).Location = Range(str_row_index)
Next i
ActiveWindow.View = xlNormalView
End Sub |
|
發表於 2011-1-3 12:48
| 
