標題: 關於列印加注標題問題.. [打印本頁]

---

作者: steven    時間: 2010-6-23 18:28     標題: 關於列印加注標題問題..

如範例123
按列印儲存後如何自動在原檔名後加註標示已列印過字樣
請大大指導謝謝..

---

作者: Hsieh    時間: 2010-6-23 19:58

回復 1# steven

1. Private Sub CommandButton1_Click()
   
2. fs = ThisWorkbook.FullName
   
3. ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
   
4. ActiveWorkbook.SaveAs Replace(fs, ".xls", "已列印.xls")
   
5. Kill fs
   
6. End Sub

複製代碼

---

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