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

帖子: 199
主題: 45
精華: 0
積分: 252
點名: 0
作業系統: windows 7 (X64)
軟體版本: office 2010 (x64)
閱讀權限: 20
性別: 男
來自: 桃園
註冊時間: 2010-12-24
最後登錄: 2020-3-31

論壇贊助勳章論壇榮譽勳章

16^#

發表於 2010-12-29 22:13 | 只看該作者

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

V98

帖子: 199
主題: 45
精華: 0
積分: 252
點名: 0
作業系統: windows 7 (X64)
軟體版本: office 2010 (x64)
閱讀權限: 20
性別: 男
來自: 桃園
註冊時間: 2010-12-24
最後登錄: 2020-3-31

論壇贊助勳章論壇榮譽勳章

15^#

發表於 2010-12-29 15:29 | 只看該作者

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

V98

GBKEE

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

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

複製代碼

帖子: 199
主題: 45
精華: 0
積分: 252
點名: 0
作業系統: windows 7 (X64)
軟體版本: office 2010 (x64)
閱讀權限: 20
性別: 男
來自: 桃園
註冊時間: 2010-12-24
最後登錄: 2020-3-31

論壇贊助勳章論壇榮譽勳章

13^#

發表於 2010-12-27 20:14 | 只看該作者

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

V98

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 258
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-28

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

12^#

發表於 2010-12-27 16:37 | 只看該作者

本帖最後由 Hsieh 於 2010-12-27 16:42 編輯

回復 10# linshin1999

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

學海無涯_不恥下問

帖子: 199
主題: 45
精華: 0
積分: 252
點名: 0
作業系統: windows 7 (X64)
軟體版本: office 2010 (x64)
閱讀權限: 20
性別: 男
來自: 桃園
註冊時間: 2010-12-24
最後登錄: 2020-3-31

論壇贊助勳章論壇榮譽勳章

11^#

發表於 2010-12-27 13:45 | 只看該作者

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

V98

帖子: 199
主題: 45
精華: 0
積分: 252
點名: 0
作業系統: windows 7 (X64)
軟體版本: office 2010 (x64)
閱讀權限: 20
性別: 男
來自: 桃園
註冊時間: 2010-12-24
最後登錄: 2020-3-31

論壇贊助勳章論壇榮譽勳章

10^#

發表於 2010-12-27 13:36 | 只看該作者

傷腦筋到現在還不會上傳資料.(我會就近請教人,我以前都是用Dos),不過我没設定標題列.

V98

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 258
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-28

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

9^#

發表於 2010-12-27 12:15 | 只看該作者

回復 8# linshin1999
請你把你的檔案上傳
才知道到你的設定為何?
我在猜是否是標題列問題

學海無涯_不恥下問

帖子: 199
主題: 45
精華: 0
積分: 252
點名: 0
作業系統: windows 7 (X64)
軟體版本: office 2010 (x64)
閱讀權限: 20
性別: 男
來自: 桃園
註冊時間: 2010-12-24
最後登錄: 2020-3-31

論壇贊助勳章論壇榮譽勳章

8^#

發表於 2010-12-27 00:01 | 只看該作者

Hsieh版主大大,如果是設定的問可否教我,在我的工作中自動分頁很重要,不然我就要寫一個自動分頁的函數了,謝謝!!

V98