- Code: Select all
Dim result As PdfTextFind() = Nothing
result = doc.Pages.Item(i).FindText("Serie").Finds
This return an error.
When I have a pdf without changes it works, but when I try with the same pdf which I replace a image and save it fails.
- Code: Select all
Dim page As PdfPageBase = doc.Pages(i)
fls = New FileStream(filename, FileMode.Open, FileAccess.Read)
image = PdfImage.FromStream(fls)
fls.Close()
page.ReplaceImage(cantidadFirmas(_folderOrigen & "\" & filePdf) + 1, image)
doc.SaveToFile(_folderOrigen & "\" & filePdf, FileFormat.PDF)
Can you help me?
Thanks.
Best Regards.