We have a html file with embedded css file need to be convert to PDF. (see attached the HTML and css)
I am using Aspose.PDF version 11.2 with below code to convert HTML to PDF:
Dim dataDir As String = Path.GetFullPath(“…/…/…/Data/”)
Dim filename As String = “data.html”
Dim fileOutPDF As String = “data.pdf”
If File.Exists(dataDir & fileOutPDF) Then
File.Delete(dataDir & fileOutPDF)
End If
Dim Licence As Aspose.Pdf.License = New Aspose.Pdf.License
Licence.SetLicense(“Aspose.Total.lic”)
Dim basePath As String = dataDir
Dim htmloptions As New HtmlLoadOptions(basePath)
’ Load HTML file
Dim pdfDocument As New Document(dataDir & filename, htmloptions)
pdfDocument.PageInfo.Width = 597.6
pdfDocument.PageInfo.Height = 842.4
'get page collection
Dim pageCollection As PageCollection = pdfDocument.Pages
'get particular page
For Each pdfPage As Page In pageCollection
pdfPage.SetPageSize(597.6, 842.4)
Next
'Optimize the pdf file in order to decrease it’s size
Dim optimization As Aspose.Pdf.Document.OptimizationOptions = New Aspose.Pdf.Document.OptimizationOptions()
optimization.LinkDuplcateStreams = True
optimization.RemoveUnusedObjects = True
optimization.RemoveUnusedStreams = True
optimization.CompressImages = True
'optimization.ImageQuality = 10
pdfDocument.OptimizeResources(optimization)
’ Save HTML file
pdfDocument.Save(dataDir & fileOutPDF, SaveFormat.Pdf)
The pdf is generated but with below issues:
1) It took about 4 to 10 minutes to convert files with sizes above 600k (in our case we have 14 files and it took almost 2 hours)
2) We have some bookmarked inside html file which works properly in browser but not working in PDF :
Then I created another function using StreamReader instead of HTMlLoadOption which is a lot faster (less than a minute) but got below issues:
1) Bookmarked are not working
2) content wrapped in a div (with table format) are rendered vertically instead of horizontal
Dim dataDir As String = Path.GetFullPath(“…/…/…/Data/”)
Dim filename As String = “data.html”
Dim fileOutPDF As String = “data.pdf”
If File.Exists(dataDir & fileOutPDF) Then
File.Delete(dataDir & fileOutPDF)
End If
Dim Licence As Aspose.Pdf.License = New Aspose.Pdf.License
Licence.SetLicense(“Aspose.Total.lic”)
’ The path to the documents directory.
Dim startTime As DateTime = DateTime.Now
’ Instantiate an object PDF class
Dim pdf As New Aspose.Pdf.Generator.Pdf()
’ add the section to PDF document sections collection
Dim section As Aspose.Pdf.Generator.Section = pdf.Sections.Add()
’ Read the contents of HTML file into StreamReader object
Dim r As StreamReader = File.OpenText(dataDir & filename)
'Create text paragraphs containing HTML text
Dim html As [String] = r.ReadToEnd()
Dim text2 As New Aspose.Pdf.Generator.Text(section, html)
’ enable the property to display HTML contents within their own formatting
text2.IsHtmlTagSupported = True
text2.IfHtmlTagSupportedOverwriteHtmlFontNames = True
text2.IfHtmlTagSupportedOverwriteHtmlFontSizes = True
'Add the text paragraphs containing HTML text to the section
section.Paragraphs.Add(text2)
section.PageInfo.PageWidth = Aspose.Pdf.Generator.PageSize.A4Width
section.PageInfo.PageHeight = Aspose.Pdf.Generator.PageSize.A4Height
’ Specify the URL which serves as images database
'pdf.HtmlInfo.ImgUrl = dataDir & “Images”
pdf.HtmlInfo.ExternalResourcesBasePath = dataDir
'Save the pdf document
pdf.Save(dataDir & fileOutPDF)
r.Close()
What is the solution? how can a html file be converted to PDF without loosing any of it style or functionality (like bookmark).
ontarioservices: