Here is my Code:
Code: Select all
For Each file In inputFile
imageCollection.Add(file)
Next
Dim document As New Vintasoft.Imaging.Pdf.PdfDocument(outputstream, New Vintasoft.Imaging.Pdf.PdfFormat("1.4"))
For i As Integer = 0 To imageCollection.Count - 1
document.Pages.Add(imageCollection(i), Vintasoft.Imaging.Pdf.PdfCompression.Zip)
Next
document.SaveChanges()
imageCollection.Dispose()
document.Dispose()
Code: Select all
For Each file In inputFile
imageCollection.Add(file)
Next
Using pdfEncoder As New Vintasoft.Imaging.Codecs.Encoders.PdfEncoder(True)
pdfEncoder.Settings.Conformance = Vintasoft.Imaging.Pdf.PdfDocumentConformance.PdfA_1b
imageCollection.SaveSync(outputstream, pdfEncoder)
End Using
thank you, for your help
Artur