Code Samples - Neevia PDFsign/encrypt

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

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

   NVsign.CertificateFile = "c:\cert.pfx"
   NVsign.CertificatePassword = "pwd"

   NVsign.Certify = true
   NVsign.CertifyPermissions = 0

   NVsign.TimeStamp = true
   NVsign.TimeServerURL = "http://tsa.neeviaPDF.com/tsa"

   NVsign.X = 0
   NVSign.Y = 0
   NVSign.Width = 6
   NVSign.Height = 2
   NVSign.Units = 1

   NVSign.ViewType = 1

   NVSign.Reason = "I am the creator of this document"
   NVSign.TextColor = "#0000FF"

   Dim retVal : retVal = NVsign.SignPDF("c:\in.pdf","c:\out.pdf")
   If retVal <> 0 Then
      MsgBox("Error code=" & CStr(retVal))
   Else
      MsgBox("Done")
   End If