標題: run 巨集列印至pdf 檔案後不能開啟檔案 [打印本頁]

---

作者: waterfox    時間: 2011-1-14 09:18     標題: run 巨集列印至pdf 檔案後不能開啟檔案

請問各位高手，為何我在巨集列印至pdf 後，檔案不能開啟，當開啟檔案時出現以下;

""Adobe Reader 無法開啟"檔案名稱.pdf" 因為檔案類型不受支援，或者檔案已損壞(例如作為電子郵件附件傳送但解碼不正確)""

以下是我run 的巨集 ; save as 後再去開啟, 便無法開啟

sub print_to_PDF ()
Dim PDFFileName as string
current_workbook = ActiveWorkbook.Name

mypath = "C:\xxxxxxx"
PDFFileName = myPath
Application.ActivePrinter = "PrimoPDF on Ne00:"
Workbooks(current_workbook).SelectedSheets.PrintOut Copies:=1, ActivePrinter:="PrimoPDF on Ne00",    PrToFileName:=PDFFileName & "目標.pdf"

End sub

謝謝各位幫忙

---

作者: kimbal    時間: 2011-1-14 22:15

PrToFileName 是 指發給PRINTER的指令檔 (例如PCL4,PS),
而不是PDF 等"PRINT了出來"的東西.
你需要另找工具.

EXCEL2007 SP2 / EXCEL 2010可以把WORKBOOK直接SAVE成PDF

---

作者: waterfox    時間: 2011-1-18 23:56

謝謝你的回覆

---

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