Set tk = CreateObject("APToolkit.Object")
retCode = TK.FindCertificate("Tim Sullivan","My",1)
If (retCode < 0) Then
retCode = TK.CreateCertificate("Tim Sullivan", "Management", "activePDF","Mission Viejo", "CA", "US", "tim@activepdf.com", 1, "My", 365,0,"","")
retCode = TK.FindCertificate("Tim Sullivan","My",1)
If (u < 0) Then
MsgBox("Can't find it!")
End If
End If
r = tk.OpenOutputFile("output.pdf")
tk.SignOutputFile retCode, "activePDF Headquarters", "Our Document", "949-582-9002",1
TK.SetFont "Helvetica",12
TK.PrintText 10,10,"This document should be signed."
Tk.CloseOutputFile
set TK = nothing
|