:: 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("PDFcompress.Neevia")

   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))
   End If

I was impressed by how fast, easy to use and cost effective PDFresize is. Not to mention the intuitive graphic interface it comes with. Keep up the good work!

John Pilger

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

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