Creates a digital ID.
Sub SignatureCreateDigitalID(IDFileName As
String,
IDPassword As String,
Name As String,
Country As String,
OrganizationName As String,
OrganizationUnit As String,
Email As String,
KeyLength As prnSigKeyLength)
IDFileName
Full path name of the digital ID file to create.
IDPassword
Digital ID password.
Name
Your name.
Country
Two digit country code (such as "US", "UK", and "JP").
OrganizationName
Origanization name.
OrganizationUnit
Organization unit.
Email address.
KeyLength
Encryption key length. Use one of the values specified in prnSigKeyLength.
Return Values
N/A.
This method creates a self-signed digital ID file in PKCS #12
(.pfx) format.
An error is raised if digital ID with the same file name already
exist.
Set oPrinter = CreateObject("easyPDF.Printer.5")
Set oPrintJob = oPrinter.PrintJob
Set oPDFSetting = oPrintJob.PDFSetting
' Create a digital ID (do this only if you do not have digital ID already)
oPDFSetting.SignatureCreateDigitalID "C:\my_digital_id.pfx", _
"password_here", _
"John Smith", _
"US", _
"Organization Name", _
"Organization Unit", _
"My Email Address", _
PRN_SIG_KEYLEN_1024
' You can retrieve a certificate file from digital ID and
' have other people use it to verify your signed document.
oPDFSetting.SignatureExportCertificate "C:\my_certificate.cer", _
"C:\my_digital_id.pfx", _
"password_here"
' Enable digital signature
oPDFSetting.Signature = True
' Set digital ID file
oPDFSetting.SignatureDigitalIDFileName = "C:\my_digital_id.pfx"
' Insert an image which will visually represent a signature
oPDFSetting.SignatureImage = True
oPDFSetting.SignatureImageFile = "C:\signature.bmp"
oPDFSetting.SignatureImagePosLeft = 1.0 ' 1.0 inch from left
oPDFSetting.SignatureImagePosTop = 1.0 ' 1.0 inch from top
oPDFSetting.SignatureImageZoom = 100 ' percent
oPDFSetting.SignatureInfoContact = "Contact info"
oPDFSetting.SignatureInfoLocation = "Location info"
oPDFSetting.SignatureInfoPurpose = "Purpose info"
' Set digital ID password before PDF conversion
oPrintJob.SignatureDigitalIDPassword = "password_here"
oPrintJob.PrintOut "C:\input.doc", "C:\output.pdf"