I am trying to create pdf file from xml and xslt, but it doesn’t work.
I have tried multiple ways:
Dim pdf1 As Aspose.Pdf.Generator.Pdf = New Aspose.Pdf.Generator.Pdf()
pdf1.BindXML(“C:\Sources\web_custom\DDV_O_EDP-82705739-380.xml”, “C:\Sources\web_custom\DDV_O_9.1-display-sl.xslt”)
pdf1.Save(“HelloWorld.pdf”, Generator.SaveType.OpenInAcrobat, Response)
in this scenario i get an error.
I also tried this one:
Dim document As XmlDocument ’ Xml document root
Dim navigator As XPathNavigator ’ navigate document
Dim transformer As XslCompiledTransform ’ transform document
Dim output As StringWriter
document = New XmlDocument()
document.Load(“C:\Sources\web_custom\DDV_O_EDP-82705739-380.xml”)
navigator = document.CreateNavigator
transformer = New XslCompiledTransform()
transformer.Load(“C:\Sources\web_custom\DDV_O_9.1-display-sl.xslt”)
output = New StringWriter()
transformer.Transform(navigator, Nothing, output)
Dim stream As New MemoryStream(System.Text.Encoding.UTF8.GetBytes(output.ToString()))
Dim writer As StreamWriter = New StreamWriter(stream)
writer.Write(output.ToString)
stream.Position = 0
Dim pdf As Aspose.Pdf.Generator.Pdf = New Aspose.Pdf.Generator.Pdf()
pdf.IsAutoFontAdjusted = True
’ add the section to PDF document sections collection
Dim section As Aspose.Pdf.Generator.Section = pdf.Sections.Add()
section.PageInfo.PageWidth = Aspose.Pdf.Generator.PageSize.LetterWidth
section.PageInfo.PageHeight = Aspose.Pdf.Generator.PageSize.LetterHeight
section.PageInfo.Margin.Top = 5
section.PageInfo.Margin.Bottom = 5
section.PageInfo.Margin.Left = 5
section.PageInfo.Margin.Right = 5
’ Read the contents of HTML file into StreamReader object
’ Dim r As StreamReader = File.OpenText(“D:/pdftest/HTML2pdf.html”)
'Create text paragraphs containing HTML text
Dim text2 As Aspose.Pdf.Generator.Text = New Aspose.Pdf.Generator.Text(section, output.ToString())
’ enable the property to display HTML contents within their own formatting
text2.IsHtmlTagSupported = True
text2.IsFitToPage = True
text2.IfHtmlTagSupportedOverwrightHtmlFontSizes = True
text2.IfHtmlTagSupportedOverwrightHtmlFontNames = True
text2.IfHtmlTagSupportedCssWinsOnFirstLevelChildren = True
’ Add the text object containing HTML contents to PD Sections
section.Paragraphs.Add(text2)
’ Specify the URL which serves as images database
pdf.HtmlInfo.ImgUrl = “D:/pdftest/MemoryStream/”
pdf.HtmlInfo.PageHeight = 100
pdf.HtmlInfo.PageWidth = 300
pdf.TextInfo.FontSize = 2
'Save the pdf document
pdf.Save(“HelloWorld.pdf”, Generator.SaveType.OpenInAcrobat, Response)
writer.Close()
output.Close()
Response.End()
With this case pdf actualy get made, but it looks twisted. And I can’t get it to fit to 1 page.
lp