- 帖子
- 28
- 主題
- 13
- 精華
- 0
- 積分
- 43
- 點名
- 0
- 作業系統
- window
- 軟體版本
- office 2000
- 閱讀權限
- 10
- 性別
- 女
- 來自
- Hong Kong
- 註冊時間
- 2011-1-14
- 最後登錄
- 2021-8-27
|
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
謝謝各位幫忙 |
|
發表於 2011-1-14 09:18
| 
