返回列表 上一主題 發帖

不同工作表列印不連續頁碼

xiongbear

帖子
2 
主題
1 
精華
0 
積分
9 
點名
0  
作業系統
Windows 7 
軟體版本
sp1 
閱讀權限
10 
註冊時間
2012-12-3 
最後登錄
2015-10-19 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-12-3 13:52 | 只看該作者

不同工作表列印不連續頁碼

本帖最後由 xiongbear 於 2012-12-3 13:53 編輯

請問
Excel 多工作表列印時
假如 Sheet1 有3頁,Sheet2 有5頁,Sheet3 有2頁
用Ctrl選取三個工作表 使用列印
但列印出來會變成
Sheet1 第1頁 共10頁(三個Sheet的頁數了)
我希望能夠 不同工作表的頁碼編排方式都是獨立的
即 Sheet 第1頁 共3頁
     Sheet 第1頁 共5頁
有想到一個方法
就是能夠使用VBA 讓它去對每個工作表 獨立頁印
請問該如何實做?

謝謝
收藏 分享

die78325
　暱稱: 新鮮貨幽杉

中學生Rank: 2

帖子
94 
主題
10 
精華
0 
積分
114 
點名
0  
作業系統
win 7 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
來自
桃園 
註冊時間
2012-10-17 
最後登錄
2014-1-3 
2#
發表於 2012-12-3 15:18 | 只看該作者
回復 1# xiongbear

新增一個按鈕
裡面貼入以下VBA
  1. sub 連續列印()
  2. Dim sh As String '宣告為字串型態
  3. sh = ActiveWorkbook.Sheets.Count '偵測活頁部內的工作表數量
  4.     for i = 1 to sh
  5.            Worksheets(i).PrintOut   ' 簡易快速列印  不給選擇與提示的  按下去直接印
  6.     next i
  7. end sub
複製代碼
有問題再發問!
自用車也可以簽帳喔!
五千元加油金加入油箱後還回饋您6200元
福利旺車友會power-want.com

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
3#
發表於 2012-12-3 16:41 | 只看該作者
回復 1# xiongbear
試試看
  1. '已用Ctrl鍵選取三個工作表:執行列印
  2. Option Explicit
  3. Sub Ex()
  4.    Dim Sh As Worksheet
  5.    For Each Sh In ActiveWindow.SelectedSheets '工作群組
  6.         Sh.PrintOut
  7.    Next
  8. End Sub
複製代碼

TOP

xiongbear

帖子
2 
主題
1 
精華
0 
積分
9 
點名
0  
作業系統
Windows 7 
軟體版本
sp1 
閱讀權限
10 
註冊時間
2012-12-3 
最後登錄
2015-10-19 
4#
發表於 2012-12-4 08:46 | 只看該作者
回復 3# GBKEE
回復 2# die78325


可以作用了 謝謝

TOP

        靜思自在 : 能善用時間的人，必能掌握自己努力的方向。
返回列表 上一主題