# Code Samples - Neevia PDFcompress

## Example 3: Compress a PDF file (low image quality, high compression) - ASP Copy

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23  <% Dim NVcomp : Set NVcomp = Server.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 Response.Write "Error = " & CStr(retVal) else Response.Write "Done" end if %>