標題: 不同工作表列印不連續頁碼 [打印本頁]

---

作者: xiongbear    時間: 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    時間: 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

複製代碼

有問題再發問!

---

作者: GBKEE    時間: 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

複製代碼

---

作者: xiongbear    時間: 2012-12-4 08:46

回復 3# GBKEE
回復 2# die78325


可以作用了 謝謝

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)