返回列表 上一主題 發帖

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

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

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

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

謝謝
活頁簿1.rar (6.21 KB)
無止盡的努力上進

回復 1# vinejason

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

或,可以錄置一段巨集來複製修改
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

回復 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
複製代碼
學海無涯_不恥下問

TOP

回復 2# ML089

謝謝版主提醒 !
無止盡的努力上進

TOP

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

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

TOP

        靜思自在 : 小事不做、大事難成。
返回列表 上一主題