做項目中用到word轉pdf 的功能 ,剛開始的要求是做一個應用程式來轉 主要代碼如下:
複製 儲存
using PDF = PDFMAKERAPILib;string wordPath = string.Empty;string pdfPath = string.Empty;PDF.PDFMakerApp app = new PDFMAKERAPILib.PDFMakerApp();int iReslut = app.CreatePDF(wordPath, pdfPath, PDF.PDFMakerSettings.kConvertAllPages, true, false, true, System.Type.Missing);if (iReslut == 0){ this.lblInfo.Text = "轉換成功!";}else{ //轉換失敗! this.lblInfo.Text = Enum.GetName(typeof(PDF.PDFMakerRetVals), iReslut);}
後來要求改變 必須用ASP.NET 來調用 心想,代碼複製到Web表單裡面不就行了嗎?
在用WebDev.WebServer.exe 時候 OK,沒問題,當用IIS時,就是轉換不成功,花了點時間,發現原因是兩個的使用者不同,一個是管理員,一個是Asp.net 帳戶或者是network Service 看IIS是5.0 還是6.0。想通過更改設定許可權來解決,改了不少,效果是從一個錯誤,變成了另一個錯誤!
後來從網上查資料,受了點啟發:(我做COM測試的時候喜歡用VB.NET 代碼簡練。)
複製 儲存
Imports Word = Microsoft.Office.Interop.WordImports PDF = ACRODISTXLib Dim Range As New Object()Range = Word.WdPrintOutRange.wdPrintAllDocumentDim Item As New Object()Item = Word.WdPrintOutItem.wdPrintDocumentContentDim PageType As New Object()PageType = Word.WdPrintOutPages.wdPrintAllPagesDim ManualDuplexPrint As New Object()ManualDuplexPrint = FalseDim OutPutFileName As String = "C:\Topdf\123456.ps"Dim wordApp As New Word.Application()wordApp.Documents.Open("C:\Topdf\123456.doc", False, False, False, "", "", False, "", "", Word.WdOpenFormat.wdOpenFormatAuto, , , , , , "")wordApp.Documents.Save()wordApp.ActivePrinter = "Adobe PDF"wordApp.PrintOut(False, , Range, OutPutFileName, , , Item, 1, "", PageType, False, True, "", , False, 0, 0, 0, 0)wordApp.Quit()Dim pdftest = New PDF.PdfDistiller()pdftest.bShowWindow = 0pdftest.FileToPDF(OutPutFileName, "C:\Topdf\123456.pdf", "")pdftest = Nothing''連續調用會出錯,可以先殺掉進程
思路是先用Word 將doc 轉換為ps,然後用pdfDistiller 將ps轉換為pdf,經過測試,可以在IIS下成功執行。
在此將代碼寫出來,希望碰到此類問題的,能夠少走些彎路!
當然,最好是不調COM,方法是找到了,就是要花錢,先這樣用著吧!