Dim styles As StyleSheet = New StyleSheet() styles.LoadStyle("bbtd", "font-size", "4px") styles.LoadStyle("bbtd", "font-family", "Arial,Verdana") styles.LoadStyle("bbtd", "line-height", "17px") Using fs As New FileStream(Request.ApplicationPath & "/Print/Pf" & Session("User_id") & ".pdf", FileMode.Create) PdfWriter.GetInstance(document, fs) ' PdfPage.LANDSCAPE() Using stringReader As New StringReader(StrContent) Dim parsedList = html.simpleparser.HTMLWorker.ParseToList(stringReader, styles) document.Open() For Each item As Object In parsedList document.Add(DirectCast(item, IElement)) Next document.Close() End Using End Using
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)