返回列表 上一主題 發帖

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

vinejason

帖子
124 
主題
43 
精華
0 
積分
167 
點名
0  
作業系統
Windows7 
軟體版本
office2007 
閱讀權限
20 
性別
男 
來自
台灣台北 
註冊時間
2011-3-16 
最後登錄
2021-10-7 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2018-12-29 10:36 | 只看該作者

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

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

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

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

vinejason

帖子
124 
主題
43 
精華
0 
積分
167 
點名
0  
作業系統
Windows7 
軟體版本
office2007 
閱讀權限
20 
性別
男 
來自
台灣台北 
註冊時間
2011-3-16 
最後登錄
2021-10-7 
5#
發表於 2019-1-12 14:14 | 只看該作者
本帖最後由 vinejason 於 2019-1-12 14:27 編輯

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

TOP

vinejason

帖子
124 
主題
43 
精華
0 
積分
167 
點名
0  
作業系統
Windows7 
軟體版本
office2007 
閱讀權限
20 
性別
男 
來自
台灣台北 
註冊時間
2011-3-16 
最後登錄
2021-10-7 
4#
發表於 2019-1-12 14:06 | 只看該作者
回復 2# ML089

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

TOP

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
3#
發表於 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
複製代碼
學海無涯_不恥下問

TOP

ML089

帖子
2025 
主題
13 
精華
0 
積分
2053 
點名
0  
作業系統
WIN7 
軟體版本
Office2007 
閱讀權限
100 
性別
男 
來自
台北市 
註冊時間
2011-3-2 
最後登錄
2024-3-14 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章2014馬年全勤獎章2015羊年全勤獎章2016猴年全勤獎章
2#
發表於 2019-1-8 09:14 | 只看該作者
回復 1# vinejason

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

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

TOP

        靜思自在 : 【為善競爭】人生要為善競爭，分秒必爭。
返回列表 上一主題