Save Image as PDF/A

PDF Xpress™ supports saving the image in PDF/A format.

VB Example	Copy Code
'this method will demonstrate how to create a PDF/A-1b compliant 'document from a compressed image of a Document Public Sub SaveImageAsPDFa(ByVal imageFileName As String, ByVal targetDocument As PdfDocument, ByVal iccFileName As String) Dim targetPageOptions As New PageOptions 'using standard page size targetPageOptions.MediaHeight = 72.0 * 11 targetPageOptions.MediaWidth = 72.0 * 8.5 targetDocument.CreatePage(-1, targetPageOptions) targetDocument.AddImage(0, 0, 0, targetPageOptions.MediaWidth, targetPageOptions.MediaHeight, PDF_ImageFitShrink, imageFileName, 0) Dim convertOpts As New ConvertOptions 'specify a valid ICC profile to embed convertOpts.IccProfileFilename = iccFileName convertOpts.Type = PDF_PdfType_PdfA1b 'save the converted PDF/A-1b document Dim saveOpts As New SaveOptions saveOpts.Filename = "imagePDFa.pdf" targetDocument.SaveDocument(saveOpts) End Sub

VB Example

Copy Code

'this method will demonstrate how to create a PDF/A-1b compliant
'document from a compressed image of a Document
Public Sub SaveImageAsPDFa(ByVal imageFileName As String, ByVal targetDocument As PdfDocument, ByVal iccFileName As String)
  Dim targetPageOptions As New PageOptions
  'using standard page size
  targetPageOptions.MediaHeight = 72.0 * 11
  targetPageOptions.MediaWidth = 72.0 * 8.5
  targetDocument.CreatePage(-1, targetPageOptions)
  targetDocument.AddImage(0, 0, 0, targetPageOptions.MediaWidth, targetPageOptions.MediaHeight, PDF_ImageFitShrink, imageFileName, 0)

  Dim convertOpts As New ConvertOptions
  'specify a valid ICC profile to embed
  convertOpts.IccProfileFilename = iccFileName
  convertOpts.Type = PDF_PdfType_PdfA1b

  'save the converted PDF/A-1b document
  Dim saveOpts As New SaveOptions
  saveOpts.Filename = "imagePDFa.pdf"
  targetDocument.SaveDocument(saveOpts)
End Sub