:: Home :: Products :: Technical Support :: About Us :: Contact Us
PDF Printer Driver, Convert to PDF, Print to PDF
Example 2: Compress a PDF file (medium image quality, medium compression) (VB)  

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

   NVcomp.CI = "jpx"
   NVcomp.CQ = 50

   NVcomp.GI = "jpx"
   NVcomp.GQ = 50

   NVcomp.MI = "jbig2"
   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

I was looking for a product that could place watermarks on very large PDF files (some of them over 30 thousand pages) in as less time as possible. After testing many tools I found Neevia PDFstamp. It did the job!

Avi Steinman

If you have any comments or suggestions about our web site, please feel free to email them to

Copyright © 2014 neeviaPDF.com Home | Products | Support | About Us | Contact Us