Code Samples - Neevia PDFsign/encrypt

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16

   Dim NVsign : NVsign = CreateObject("PDFsign.Neevia")

   NVsign.PDFEncrypt = true
   NVsign.PDFEncryptionType = "rc4"
   NVsign.PDFOwnerPassword = "owner"

   ' p - document printing is denied
   ' e - disable extraction of text and graphics
   NVsign.PDFPermissions = "pe" 
  
   Dim retVal : retVal = NVsign.EncryptPDF("c:\in.pdf", "c:\out.pdf")
   If retVal <> 0 Then
      MsgBox("Error code=" & CStr(retVal))
   Else
      MsgBox("Done")
   End If