 |
| 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))
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!
