 |
| Example 3: Compress a PDF file (low image quality, high compression) (ASP) |
|
|
<%
Dim NVcomp : Set NVcomp = Server.CreateObject("Neevia.PDFcompress")
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
%>
|
|
|
|
I needed to build an entreprise level solution to stamp large batches of PDF files. With PDFstamp I could do it in a short time and for a fraction of the price your competitors charge.
