ASP .Net發展到現在已經這麼多年了，一直沒有內建列印或輸出PDF的元件可以使用，而這也是大家一直在尋找的解決方案，有錢的單位就直接購買現成的元件使用，沒啥預算的單位就只好找些可以免費使用的元件。

這一篇要利用iTextSharp及WebRequest來達到直接將現成的ASP .Net網頁轉成PDF的作法。

首先要先加入iTextSharp的參考，本段程式碼會從Session中取得要轉成PDF的網頁(SourcePage)，以及要輸出的PDF檔案名稱(Output File)。

Imports System.IO Imports System.Collections Imports System.Collections.Generic Imports iTextSharp.text Imports iTextSharp.text.html Imports iTextSharp.text.html.simpleparser Imports iTextSharp.text.pdf Imports System Imports System.Net Imports System.Text Imports System.Threading Public Class ExportPDF Inherits System.Web.UI.Page Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load If Not IsPostBack() Then Convert_PDF() Session("SourcePage") = Nothing Session("OutputFile") = Nothing End If End Sub Private Sub Convert_PDF() Dim strSourcePage As String = Session("SourcePage") Dim strPDFFileName As String = Session("OutputFile") strPDFFileName = Request.MapPath("/Report") & "\" & Session("OutputFile") Dim myReq As HttpWebRequest = CType(WebRequest.Create(strSourcePage), HttpWebRequest) Dim wResp As WebResponse = myReq.GetResponse() Dim respStream As IO.Stream = wResp.GetResponseStream() '讀取html檔,由於html檔的儲存內容編碼是utf-8,此處StreamReader編碼設定為utf-8 Dim sr As New StreamReader(respStream, System.Text.Encoding.UTF8) '建立Document,HTMLWorker及PdfWriter物件,並指定寫出PDF檔的路徑 '文件格式為橫式A4,若建構式不加引數,預設為直式A4 'Dim doc As New Document(PageSize.A4.Rotate()) Dim doc As New Document() Dim hw As New HTMLWorker(doc) PdfWriter.GetInstance(doc, New FileStream(strPDFFileName, System.IO.FileMode.Create)) '取得作業系統中有安裝的字型,通常在C:\WINDOWS\Fonts目錄下 '取"windir"這一個環境變數,設定為C:\WINDOWS '若要觀看字型檔案的檔名,在C:\WINDOWS\Fonts目錄中以滑鼠右鍵點選檔案並按下內容 FontFactory.Register(System.Environment.GetEnvironmentVariable("windir") & "\Fonts\simhei.ttf") 'SimHei字體(中易黑體) FontFactory.Register(System.Environment.GetEnvironmentVariable("windir") & "\Fonts\MINGLIU.TTC") '細明體 & 新細明體 FontFactory.Register(System.Environment.GetEnvironmentVariable("windir") & "\Fonts\KAIU.TTF") '標楷體 '建立樣式格式 Dim style As New StyleSheet() '設定html tag應用什麼樣式來解析 '根據測試,LoadTagStyle(...)的參數意思如下: '第一個參數: html標籤名稱 '第二個參數: 屬性名稱,目前解讀如下: ' "face" 使用的字型(但要先取得系統字型) ' "encoding" 字型編碼,Identity-H代表 ' The Unicode encoding with horizontal writing. ' "leading" 列的高度 'body tag設定 style.LoadTagStyle("body", "face", "SIMHEI") style.LoadTagStyle("body", "encoding", "Identity-H") style.LoadTagStyle("body", "leading", "12,0") 'td tag設定,會蓋過body tag的設定 style.LoadTagStyle("td", "face", "MINGLIU") style.LoadTagStyle("td", "encoding", "Identity-H") style.LoadTagStyle("td", "leading", "18,0") '開啟Document文件,並使用HTMLWorker解析html檔案的輸入串流後,匯出PDF檔 doc.Open() '根據iTextSharp的解析,html的tag會解析成不同的iTextSharp物件, 'ParseToList(...)第一個引數為html文件的輸入串流,第二個引數為樣式設定 Dim htmlElement As List(Of IElement) = HTMLWorker.ParseToList(sr, style) For i As Integer = 0 To htmlElement.Count - 1 '以這一份html檔,iTextSharp將其解讀為iTextSharp.text.Paragraph與 'iTextSharp.text.pdf.PdfPTable物件 '將每個被HTMLWorker解析的物件加到Document物件中 doc.Add(htmlElement(i)) Next doc.Close() sr.Close() End Sub End Class

這個範例所產生PDF檔案有兩個缺點：

1. 原始檔案所套用的樣式並沒有轉出

2. 如果原始網頁有圖檔，會遇到找不到檔案的錯誤

參考資源：

使用iTextSharp 5將html檔轉成PDF檔

ASP.NET 讀取其他網頁