Code Samples - Neevia PDFcompress

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20

   Dim NVcomp : Set NVcomp = CreateObject("PDFcompress.Neevia")

   NVcomp.CI = "jpx"
   NVcomp.CQ = 20

   NVcomp.GI = "jpx"
   NVcomp.GQ = 20

   NVcomp.MI = "jbig2"
   NVcomp.MQ = 2

   'For better compression uncomment the line below
   ' NVcomp.CreateObjectStreams = true

   Dim retVal : retVal = NVcomp.CompressPDF("c:\in.pdf","c:\out.pdf")
   If retVal <> 0 Then
      MsgBox("Error code=" & CStr(retVal))
   Else
      MsgBox("Done")
   End If