標題: [發問] 超越選定範圍列印 [打印本頁]

---

作者: vinejason    時間: 2018-12-29 10:36     標題: 超越選定範圍列印

朋友們平安
有一個excel檔案有近2千筆資料
資料內容分A,B,C,D,E,F,G,H,I,J,K ,L  
需列印成12分資料 , 且頁碼要照著排列
請問可以做到嗎 ?

目前的方法是使用選取範圍列印
然後一張一張寫頁碼
實在很不經濟 特來就教

謝謝
[attach]29855[/attach]

---

作者: ML089    時間: 2019-1-8 09:14

回復 1# vinejason

建議題目移置程式區比較多人可以幫忙

或，可以錄置一段巨集來複製修改

---

作者: Hsieh    時間: 2019-1-8 16:27

回復 1# vinejason

1. Sub SetPrintArea()
   
2. Dim A As Range
   
3. With ActiveSheet
   
4. .ResetAllPageBreaks '重設分頁
   
5. For Each A In Range([A2], [A2].End(xlDown)) '從A2開始進入迴圈
   
6.   If A <> A.Offset(1) Then 'A欄資料遇到與下方儲存格不同內容時
   
7.      A.Offset(1).PageBreak = xlPageBreakManual '設置分頁線
   
8.   End If
   
9. Next
   
10.     With .PageSetup '列印設定
    
11.         .PrintTitleRows = "$1:$1" '列印標題
    
12.         .RightFooter = "&P" '頁尾顯示頁碼
    
13.     End With
    
14. End With
    
15. End Sub

複製代碼

---

作者: vinejason    時間: 2019-1-12 14:06

回復 2# ML089

謝謝版主提醒 !

---

作者: vinejason    時間: 2019-1-12 14:14

本帖最後由 vinejason 於 2019-1-12 14:27 編輯

回復 3# Hsieh
寒冷的天氣裡有陽光是最舒服的 !
如果要帶出總頁數可以做到嗎 ?
感謝Hsieh

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)