Click here to Skip to main content
15,888,803 members
Please Sign up or sign in to vote.
0.00/5 (No votes)
See more:
Dear All

I am using below code for converting html to pdf
below code running fine on one form but same is not running on another form
in "strhtml" i am passing my html text..
Even i hard code some html string then also it is not going anything fine
please help....
VB
Dim cliid As String = Request("fromaccid")
Dim doc As New Document()
Dim UrlDirectory As [String] = Request.Url.GetLeftPart(UriPartial.Path)
UrlDirectory = UrlDirectory.Substring(0, UrlDirectory.LastIndexOf("/") + 1)
Response.Write(UrlDirectory)
Dim getcurrtime As String() = Split(DateTime.Now.TimeOfDay.ToString, ".")
Dim dt As String = ClsDate.GetFormatedDate(ClsApplvl.Getserverdt(), "DD/MM/YYYY")
PdfWriter.GetInstance(doc, New FileStream(Server.MapPath("../TRANSACTIONPDF/" & cliid & " " & dt & ".pdf"), FileMode.Create))
'iTextSharp.text.html.simpleparser.StyleSheet.
doc.Open()
Dim htmlText As [String] = strhtml

Dim htmlarraylist As List(Of IElement) = iTextSharp.text.html.simpleparser.HTMLWorker.ParseToList(New StringReader(htmlText), Nothing)
Dim font As iTextSharp.text.Font = FontFactory.GetFont("Times-Roman", 10, 1, iTextSharp.text.BaseColor.GRAY)



For k As Integer = 0 To htmlarraylist.Count - 1
  Dim x As IElement = DirectCast(htmlarraylist(k), IElement)
  Response.Write(x.Type.ToString() + "#<br>")
Next

Dim mypara = New Paragraph()
mypara.InsertRange(0, htmlarraylist)
mypara.Font = font
doc.Add(mypara)
doc.Close()</br>
Posted
Updated 28-Sep-12 2:51am
v2
Comments
Pro Idiot 28-Sep-12 13:52pm    
As you have mentioned "below code running fine on one form but same is not running on another form" ,
Try debugging and trace exceptions , if any !!

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)



CodeProject, 20 Bay Street, 11th Floor Toronto, Ontario, Canada M5J 2N8 +1 (416) 849-8900