Hello,
Syncfusion version:8.3.0.21
I have a pdf (file1.pdf) that is produced by altsoft because is the result of conversion from a word 2003 xml file to pdf.
That is why I need another sofware, because Syncfusion does not support conversion from word 2003 xml to pdf.
I attach 3 files as example:
Hello.xml (word 2003 file), File1.pdf (Hello.xml converted into PDF by altsoft), File2.pdf (simple pdf file) and the result of merge Result.pdf.
I take File1.pdf that has 1 page with a simple text "Hello world!" and I need to merge it with another pdf file (File2.pdf) that has 2 pages.
This second file is NOT produced by altsoft.
The problem is that after merge I get a PDF file of 3 pages, page 1 and page 2 are visible and correct (because they come from File2) but page 3 does not show its content even if the string "Hello World !" is there (if you make a search in the page it founds the text correctly).
It seems font issue but I cannot find a solution or the reason why the text is not visible.
Notice that if you simply open File1.pdf content is visible.
But when you load into a Syncfusion PDFDocument or merge it, content is no more visible.
Thanks for any help!
Here is my code for merging:
Private Sub MergePDF()
Dim ResultPDFPath As String ="c:\temp\File1.pdf" ' PDF produced by altsoft (converting word 2003 ML)
Dim PDFsample As String ="c:\temp\File2.pdf" 'simple pdf used for example
Try
'create a stream object for each file
'PDFsample
Dim fs As New FileStream(PDFsample, FileMode.Open, FileAccess.Read, FileShare.Read)
Dim bytes(fs.Length - 1) As Byte
fs.Read(bytes, 0, bytes.Length)
fs.Close()
Dim SampleStream As New MemoryStream(bytes)
'ResultPDFPath
fs = New FileStream(ResultPDFPath, FileMode.Open, FileAccess.Read, FileShare.Read)
Dim pdfbytes(fs.Length - 1) As Byte
fs.Read(pdfbytes, 0, pdfbytes.Length)
fs.Close()
Dim PDFStream As New MemoryStream(pdfbytes)
'create an array and load stream objects
Dim streamArray(1) as System.IO.Stream
streamArray.setValue(SampleStream, 0)
streamArray.setValue(PDFStream,1)
'create pdf document
Dim PDFFile As New Syncfusion.Pdf.PdfDocument()
Dim i As Integer
For i = 0 To streamArray.Length - 1
Dim str As New MemoryStream
str = streamArray(i)
str.Seek(0, SeekOrigin.Begin)
'create a PdfLoadedDocument from stream
Dim LDoc As New Syncfusion.Pdf.Parsing.PdfLoadedDocument(str)
'append to pdf document
PDFFile.Append(LDoc)
Next
'save file
PDFFile.Save("c:\temp\Result.pdf")
Catch ex As Exception
'....
End Try
End Sub
Files_2c44c123.zip