12
返回列表 上一主題 發帖

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

linshin1999

帖子
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

TOP

Hsieh

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

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列
學海無涯_不恥下問

TOP

linshin1999

帖子
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

TOP

GBKEE

帖子
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
在分頁預覽模式下 :
移動任何自動分頁線(虛線) 就變成手動(實線)
第一條自動分頁線(虛線) 如往上拖移小於 第一條自動分頁線(虛線)  是無法 將所有分頁線固定在移動的倍數列上
第一條自動分頁線(虛線) 如往下拖移大於 第一條自動分頁線(虛線)  可將所有分頁線固定在移動的倍數列上
給你一程序試試看
  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

linshin1999

帖子
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

TOP

linshin1999

帖子
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

TOP

        靜思自在 : 屋寬不如心寬。
12
返回列表 上一主題