返回列表 上一主題 發帖

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

回復 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

        靜思自在 : 稻穗結得越飽滿,越會往下垂,一個人越有成就,就要越有謙沖的胸襟。
返回列表 上一主題