返回列表下一主題上一主題發帖

run 巨集列印至pdf 檔案後不能開啟檔案

waterfox

小學生 Rank: 1

帖子: 28
主題: 13
精華: 0
積分: 43
點名: 0
作業系統: window
軟體版本: office 2000
閱讀權限: 10
性別: 女
來自: Hong Kong
註冊時間: 2011-1-14
最後登錄: 2021-8-27

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 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

謝謝各位幫忙