sb.Append(" <table width=100% cellspacing=0 cellpadding=2 class=table1>")
sb.Append(" <div style=text-align: right;>")
sb.Append("<input type=button onClick=window.print() value=Print></input>")
sb.Append("</div>")
sb.Append("<tr><th align=center Cssclass=theadPO style=background-color: #18B5F0><b>Order SHeet</b> </th></tr>")
sb.Append("<tr><td align=center><table width=100% cellspacing=0 border=1 cellpadding=2>")
sb.Append("<tr><td colspan=2 align=center Style=border-bottom:1px> </td></tr>")
sb.Append("<tr><td><b>P.O No: </b> " & txtname.text & " </td><td><b>Date: </b>" & DateTime.Now() & " </td></tr>")
sb.Append("<tr><td><b>From :</b> " & companyname & " </td><td><b>To: </b>" & txtfrom.text & " </td></tr>")
sb.Append("<tr><td colspan=2> </td></tr>")
sb.Append("<tr><td colspan=2><b> <b></td></tr>")
sb.Append("<tr><td colspan=2 align=left><b>address<b></td></tr>")
sb.Append("<tr><td colspan=2><b> <b></td></tr>")
sb.Append(" </table></td></tr>")
sb.Append(" </table>")
divpdf.InnerHtml = sb.ToString()
Dim Filename As String = ""
Filename = "DET_" & txtname.Text & ".pdf"
Response.ContentType = "application/pdf"
Response.AddHeader("content-disposition", "attachment;filename=" & Filename)
Response.Cache.SetCacheability(HttpCacheability.NoCache)
Dim sw As New StringWriter()
Dim hw As New HtmlTextWriter(sw)
divpdf.RenderControl(hw)
Dim sr As New StringReader(sw.ToString())
Dim pdfDoc As New Document(PageSize.A4, 10.0F, 10.0F, 100.0F, 0.0F)
Dim htmlparser As New HTMLWorker(pdfDoc)
PdfWriter.GetInstance(pdfDoc, Response.OutputStream)
pdfDoc.Open()
htmlparser.Parse(sr) -- error here
pdfDoc.Close()
Response.Write(pdfDoc)
Response.End()