|
|
(Excel) PDF Sign Under Existing Signature
This example explains how sign a previously-signed PDF and place the signature appearance below the existing signature.
Note: This example requires Chilkat v9.5.0.85 or greater.
' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.
Dim pdf As Chilkat.Pdf
Set pdf = Chilkat.NewPdf
' Load a PDF to be signed.
success = pdf.LoadFile("qa_data/pdf/sign_testing_4/hello_signed.pdf")
If (success = False) Then
Debug.Print pdf.LastErrorText
Exit Sub
End If
' The PDF we'll be signing already has a signature added in Adobe Acrobat DC.
' It looks like this:
' (Notice the Adobe background logo, which is commonly what you'll see when a signature
' is created by Adobe Acrobat. Chilkat (obviously) does not create signatures using the Adobe
' logo because it would be a copyright violation.)
' Options for signing are specified in JSON.
Dim json As Chilkat.JsonObject
Set json = Chilkat.NewJsonObject
' In most cases, the signingCertificateV2 and signingTime attributes are required.
Dim success As Boolean
success = json.UpdateInt("signingCertificateV2",1)
success = json.UpdateInt("signingTime",1)
' To put our new signature underneath the existing signature, we have to specify the page
' where the existing signature is found, and then we can specify "under" for the "appearance.y"
success = json.UpdateInt("page",1)
success = json.UpdateString("appearance.y","under")
success = json.UpdateString("appearance.fontScale","10.0")
success = json.UpdateString("appearance.text[0]","Reason: Agreement Accepted by John")
success = json.UpdateString("appearance.text[1]","Date: current_dt")
' Load the signing certificate. (Use your own certificate.)
Dim cert As Chilkat.Cert
Set cert = Chilkat.NewCert
success = cert.LoadPfxFile("qa_data/pfx/myPdfSigningCert.pfx","secret")
If (success = False) Then
Debug.Print cert.LastErrorText
Exit Sub
End If
' Tell the pdf object to use the certificate for signing.
success = pdf.SetSigningCert(cert)
If (success = False) Then
Debug.Print pdf.LastErrorText
Exit Sub
End If
' Note: When adding an additional signature to a PDF, the existing signatures
' are validated, and this includes validating the certificates previously used to
' create the existing signatures. (A signature typically embeds the signing certs.)
' In some cases, the certificates and/or certs in the chain of authentication for
' existing signatures are not present, and are not available on the current system.
' In this case, you can skip the validation by setting this keyword in UncommonOptions:
pdf.UncommonOptions = "NO_VERIFY_CERT_SIGNATURES"
success = pdf.SignPdf(json,"qa_output/hello_signed.pdf")
If (success = False) Then
Debug.Print pdf.LastErrorText
Exit Sub
End If
Debug.Print "The PDF has been successfully cryptographically signed."
' Here's a screenshot of the 2nd signature positioned under the 1st in Adobe Acrobat:
|
