 |
Example 2: Merge several PDF files and encrypt the output (Visual Basic) |
|
 |
Dim NVmerge : Set NVmerge = CreateObject("PDFMerge.Neevia")
NVmerge.PDFEncrypt = true
NVmerge.PDFEncryptionType = "rc4"
NVmerge.PDFOwnerPassword = "owner"
' p - document printing is denied
' e - disable extraction of text and graphics
NVMerge.PDFPermissions = "pe"
Dim retVal : retVal = NVmerge.MergePDF("c:\1.pdf+c:\2.pdf", "c:\merged.pdf")
if retVal<>0 then
MsgBox "Error code=" & CStr(retVal)
else
MsgBox "Done"
end if
|
|
 |
|