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

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

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

   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 = 2
   NVSign.Image = "c:\stamp.jpg"

   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