麻辣家族討論版版 » Excel程式區 » 不同工作表列印不連續頁碼

返回列表下一主題上一主題發帖

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

小學生 Rank: 1

帖子: 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 讓它去對每個工作表獨立頁印
請問該如何實做?

謝謝

收藏

　暱稱: 新鮮貨幽杉

中學生 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

sub 連續列印()
Dim sh As String '宣告為字串型態
sh = ActiveWorkbook.Sheets.Count '偵測活頁部內的工作表數量
for i = 1 to sh
Worksheets(i).PrintOut ' 簡易快速列印不給選擇與提示的按下去直接印
next i
end sub

複製代碼

有問題再發問!

自用車也可以簽帳喔!
五千元加油金加入油箱後還回饋您6200元
福利旺車友會power-want.com

超級版主 Rank: 8 Rank: 8

帖子: 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
試試看

'已用Ctrl鍵選取三個工作表:執行列印
Option Explicit
Sub Ex()
Dim Sh As Worksheet
For Each Sh In ActiveWindow.SelectedSheets '工作群組
Sh.PrintOut
Next
End Sub

複製代碼

小學生 Rank: 1

帖子: 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

可以作用了謝謝

靜思自在 : 能幹不幹，不如苦幹實幹。

返回列表下一主題上一主題