利用Office 2007轉出PDF
Office2007有個「2007 Microsoft Office 增益集：Microsoft 另存 PDF 或 XPS 檔」的增益集可以將Office文件轉成PDF。
如果應用在Web AP的話，需要在AP上裝Office 2007再裝「2007 Microsoft Office 增益集：Microsoft 另存 PDF 或 XPS 檔」增益集，並設定Office的權限，可參考「解決Win2008 Asp.NET使用Word.Selection會有System.NullReferenceException的問題」中的相關設定。
以下為Word轉成PDF的Code，
Dim strPDFFileName As String = Path.ChangeExtension(mstrResultFormPath, ".pdf")
Dim docApp As Object = CreateObject("Word.Application")
Dim docDoc As Object = docApp.Documents.Open(mstrResultFormPath)
docDoc.ExportAsFixedFormat(OutputFileName:=strPDFFileName, ExportFormat:=17)
docApp.Documents.Close()
docApp.Quit()
以下為Excel轉成PDF的Code，
Dim strPDFFileName As String = Path.ChangeExtension(mstrResultFormPath, ".pdf")
Dim xlsApp As Object = CreateObject("Excel.Application")
Dim xlsWBook As Object = xlsApp.Workbooks.Open(mstrResultFormPath)
xlsWBook.ExportAsFixedFormat(Type:=0, Filename:=strPDFFileName, IgnorePrintAreas:=False, OpenAfterPublish:=False, IncludeDocProperties:=True)
xlsApp.Workbooks.Close()
xlsApp.Quit() Hi,
亂馬客Blog已移到了 「亂馬客 : Re:從零開始的軟體開發生活」
請大家繼續支持 ^_^
