Example 1: Compress a PDF file (high image quality, low compression) (VB)  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 

 Testimonials
 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

 Site feedback
 If you have any comments or suggestions about our web site, please feel free to email them to web®neeviaPDF¸com