PdfDocumentOptions Class

'Declaration
 
Public Class PdfDocumentOptions 
   Inherits DocumentOptions

' Windows API functions needed to load/delete an EMF
   <DllImport("gdi32.dll")> _
   Private Shared Function GetEnhMetaFile(ByVal lpszMetaFile As String) As IntPtr
   End Function
   <DllImport("gdi32.dll")> _
   Private Shared Function DeleteEnhMetaFile(ByVal hemf As IntPtr) As Boolean
   End Function

   Private Sub PdfDocumentOptionsExample()
      ' Unlock the support needed for LEADTOOLS Document Writers (with PDF output)
      RasterSupport.Unlock(RasterSupportType.DocumentWriters, "Replace with your own key here")
      RasterSupport.Unlock(RasterSupportType.DocumentWritersPdf, "Replace with your own key here")

      ' We are going to use RasterCodecs to load a TIF file
      Dim codecs As New RasterCodecs()

      ' Create a new instance of the LEADTOOLS Document Writer
      Dim docWriter As New DocumentWriter()

      Dim pdfFileName1 As String = Path.Combine(LEAD_VARS.ImagesDir, "Test1.pdf")
      Dim pdfFileName2 As String = Path.Combine(LEAD_VARS.ImagesDir, "Test2.pdf")

      Dim emfFileName As String = Path.Combine(LEAD_VARS.ImagesDir, "Ocr1.emf")
      Dim tifFileName As String = Path.Combine(LEAD_VARS.ImagesDir, "Ocr1.tif")

      ' Create a new PDF document with: PDF and no image/text
      Dim pdfOptions As PdfDocumentOptions = DirectCast(docWriter.GetOptions(DocumentFormat.Pdf), PdfDocumentOptions)
      pdfOptions.DocumentType = PdfDocumentType.Pdf
      pdfOptions.FontEmbedMode = DocumentFontEmbedMode.None
      pdfOptions.ImageOverText = False
      docWriter.SetOptions(DocumentFormat.Pdf, pdfOptions)

      Console.WriteLine("Creating new PDF document: {0}", pdfFileName1)
      docWriter.BeginDocument(pdfFileName1, DocumentFormat.Pdf)

      ' Use the Windows API to load the EMF
      Dim emfHandle As IntPtr = GetEnhMetaFile(emfFileName)

      ' Add the page, notice we will not be using image/text feature (the default)
      Dim page As DocumentPage = DocumentPage.Empty
      page.EmfHandle = emfHandle
      page.Image = Nothing

      Console.WriteLine("Adding EMF page from: {0}", emfFileName)
      docWriter.AddPage(page)

      ' Use the Windows API to delete the EMF
      DeleteEnhMetaFile(emfHandle)

      ' Finally finish writing the PDF file on disk
      docWriter.EndDocument()

      ' Now create a new PDF document with: PDF/A and image/text
      pdfOptions = DirectCast(docWriter.GetOptions(DocumentFormat.Pdf), PdfDocumentOptions)
      pdfOptions.DocumentType = PdfDocumentType.PdfA
      pdfOptions.FontEmbedMode = DocumentFontEmbedMode.All
      pdfOptions.ImageOverText = True
      pdfOptions.Linearized = False
      pdfOptions.Title = "Add your title here"
      pdfOptions.Subject = "Add your subject here"
      pdfOptions.Keywords = "Add your keywords here"
      pdfOptions.Author = "Add author name here"
      pdfOptions.Protected = True
      pdfOptions.UserPassword = "User password"
      pdfOptions.OwnerPassword = "Owner password"
      pdfOptions.EncryptionMode = PdfDocumentEncryptionMode.RC128Bit
      pdfOptions.PrintEnabled = False
      pdfOptions.HighQualityPrintEnabled = True
      pdfOptions.CopyEnabled = False
      pdfOptions.EditEnabled = True
      pdfOptions.AnnotationsEnabled = True
      pdfOptions.AssemblyEnabled = False
      pdfOptions.OneBitImageCompression = OneBitImageCompressionType.Flate
      pdfOptions.ColoredImageCompression = ColoredImageCompressionType.FlateJpeg
      pdfOptions.QualityFactor = 2

      ' Use default resolution
      pdfOptions.DocumentResolution = 0
      pdfOptions.PageRestriction = DocumentPageRestriction.Relaxed

      ' Setup empty page size (Letter size)
      pdfOptions.EmptyPageWidth = 8.5
      pdfOptions.EmptyPageHeight = 11
      pdfOptions.EmptyPageResolution = 300

      docWriter.SetOptions(DocumentFormat.Pdf, pdfOptions)

      Console.WriteLine("Creating new PDF document: {0}", pdfFileName2)
      docWriter.BeginDocument(pdfFileName2, DocumentFormat.Pdf)

      ' Use the Windows API to load the EMF
      emfHandle = GetEnhMetaFile(emfFileName)
      Dim image As RasterImage = codecs.Load(tifFileName, 0, CodecsLoadByteOrder.BgrOrGray, 1, 1)

      ' Add the page, notice we will be using image/text feature
      page = DocumentPage.Empty
      page.EmfHandle = emfHandle
      page.Image = image

      Console.WriteLine("Adding EMF page from: {0}", emfFileName)
      docWriter.AddPage(page)

      ' Use the Windows API to delete the EMF
      DeleteEnhMetaFile(emfHandle)

      ' We don't need the image anymore
      image.Dispose()

      ' Finally finish writing the PDF file on disk
      docWriter.EndDocument()

      codecs.Dispose()
   End Sub

Public NotInheritable Class LEAD_VARS
   Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images"
End Class