轉:http://www.cnblogs.com/DotNet1010/archive/2007/08/29/873826.html
項目中用到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.Word
Imports PDF = ACRODISTXLib Dim Range As New Object()
Range = Word.WdPrintOutRange.wdPrintAllDocument
Dim Item As New Object()
Item = Word.WdPrintOutItem.wdPrintDocumentContent
Dim PageType As New Object()
PageType = Word.WdPrintOutPages.wdPrintAllPages
Dim ManualDuplexPrint As New Object()
ManualDuplexPrint = False
Dim 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 = 0
pdftest.FileToPDF(OutPutFileName, "C:\Topdf\123456.pdf", "")
pdftest = Nothing
''連續調用會出錯,可以先殺掉進程
思路是先用Word 將doc 轉換為ps,然後用pdfDistiller 將ps轉換為pdf,經過測試,可以在IIS下成功執行。
在此將代碼寫出來,希望碰到此類問題的,能夠少走些彎路!
當然,最好是不調COM,方法是找到了,就是要花錢,先這樣用著吧!