[發問] 超越選定範圍列印

vinejason

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

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

謝謝
活頁簿1.rar (6.21 KB)

下載次數: 8

2018-12-29 10:36

ML089

回復 1# vinejason

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

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

Hsieh

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

回復 2# ML089

謝謝版主提醒 !

vinejason

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