Neevia Technology Sites:   www.neevia.com  |  docuPub.com  |  www.neeviaPDF.com
:: Home :: Products :: Technical Support :: About Us :: Contact Us
Technical support > Neevia docCreator code samples
Example 12: Encrypt an existing PDF file (40 bits) from Visual Basic  Print Example 


  Dim DC : Set DC = CreateObject("Neevia.docCreator")

  DC.setParameter "PDFEncryption", "true"
  DC.setParameter "PDFEncryptionType", "40"

  DC.setParameter "PDFOwnerPassword", "test"
  DC.setParameter "PDFUserPassword", "open"

  DC.setParameter "PDFNoCopyPermission", "true"
  DC.setParameter "PDFNoPrintPermission", "true"
  DC.setParameter "PDFNoChangePermission", "true"
  DC.setParameter "PDFNoAddPermission", "true"

  Dim RVal : RVal=DC.encryptPDF("d:\test.pdf","d:\out.pdf")
  Set DC = Nothing

  If (RVal<>0) Then
    MsgBox "There was an error encrypting the document!!!"
  Else
    MsgBox "Done encrypting !!!"
  End If



Copyright © 1999-2016 Neevia Technology. All Rights Reserved. Home | Products | Technical Support | About Us | Contact Us