 |
| Example 4: Compress a PDF file (low image quality, MAX compression) (VB.NET) |
|
|
Dim NVcomp : NVcomp = CreateObject("Neevia.PDFcompress")
NVcomp.CI = "jpx"
NVcomp.CQ = 10
NVcomp.GI = "jpx"
NVcomp.GQ = 10
NVcomp.MI = "jbig2"
NVcomp.MQ = 1
NVcomp.CreateObjectStreams = true
NVcomp.removePageLabels = true
NVcomp.removeArticleThreads = 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 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.
