space1 separator space2  

Code Samples - Neevia PDFcompress

Example 1: Compress a PDF file (high image quality, low compression) - Visual Basic Copy 

Make sure Neevia PDF compress is installed on your Windows machine then use the Visual Basic code below. What it does is compress each page the input PDF document and at the same time preserve the image quality.
 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 = 75

   NVcomp.GI = "jpx"
   NVcomp.GQ = 75

   NVcomp.MI = "jbig2l"
   NVcomp.MQ = 5

   '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