Str.Clear() Str.Append("<table cellspacing=1 cellpadding=0 border=0 width=100% align=center class='tblrpt'>") Str.Append("<tr class='bbtdwht'><td align='center' colspan='3'><b>No Record(s) Found </b></td></tr>") Str.Append("</table>") Dim StrContent As String StrContent = Str.ToString Dim doc As New Document(PageSize.LETTER, 80, 50, 30, 65) Dim fsNew As New StringReader(StrContent) Dim document As New Document(PageSize.A4, 80, 50, 30, 65) Using fs As New FileStream(Request.ApplicationPath & "/Print/Pf" & Session("User_id") & ".pdf", FileMode.Create) PdfWriter.GetInstance(document, fs) Using stringReader As New StringReader(StrContent) Dim parsedList = html.simpleparser.HTMLWorker.ParseToList(stringReader, Nothing) 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)