Chilkat Examples

ChilkatHOMEAndroid™Classic ASPCC++C#Mono C#.NET Core C#C# UWP/WinRTDataFlexDelphi ActiveXDelphi DLLVisual FoxProJavaLianjaMFCObjective-CPerlPHP ActiveXPHP ExtensionPowerBuilderPowerShellPureBasicCkPythonChilkat2-PythonRubySQL ServerSwift 2Swift 3,4,5...TclUnicode CUnicode C++Visual Basic 6.0VB.NETVB.NET UWP/WinRTVBScriptXojo PluginNode.jsExcelGo

Excel Examples

Web API Categories

ASN.1
Amazon EC2
Amazon Glacier
Amazon S3
Amazon S3 (new)
Amazon SES
Amazon SNS
Amazon SQS
Azure Cloud Storage
Azure Service Bus
Azure Table Service
Base64
Bounced Email
Box
CAdES
CSR
CSV
Certificates
Compression
DKIM / DomainKey
DSA
Diffie-Hellman
Digital Signatures
Dropbox
Dynamics CRM
EBICS
ECC
Ed25519
Email Object
Encryption
FTP
FileAccess
Firebase
GMail REST API
GMail SMTP/IMAP/POP
Geolocation
Google APIs
Google Calendar
Google Cloud SQL
Google Cloud Storage
Google Drive
Google Photos
Google Sheets
Google Tasks
Gzip
HTML-to-XML/Text
HTTP

HTTP Misc
IMAP
JSON
JSON Web Encryption (JWE)
JSON Web Signatures (JWS)
JSON Web Token (JWT)
Java KeyStore (JKS)
MHT / HTML Email
MIME
MS Storage Providers
Microsoft Graph
NTLM
OAuth1
OAuth2
OIDC
Office365
OneDrive
OpenSSL
Outlook
Outlook Calendar
Outlook Contact
PDF Signatures
PEM
PFX/P12
PKCS11
POP3
PRNG
REST
REST Misc
RSA
SCP
SCard
SFTP
SMTP
SSH
SSH Key
SSH Tunnel
ScMinidriver
SharePoint
Socket/SSL/TLS
Spider
Stream
Tar Archive
Upload
WebSocket
XAdES
XML
XML Digital Signatures
XMP
Zip
curl

 

 

 

(Excel) PDF Signature Page Location

See more PDF Signatures Examples

This example demonstrates how to specify the location of a PDF signature on a page.

Note: This example requires Chilkat v9.5.0.85 or greater.

Download Excel Class Modules

Chilkat Excel Class Modules

' 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.
' The "hello.pdf" is available at https://chilkatsoft.com/hello.pdf

success = pdf.LoadFile("qa_data/pdf/hello.pdf")
If (success = False) Then
    Debug.Print pdf.LastErrorText
    Exit Sub
End If

' 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)

' When cryptographically signing a PDF, the signature's appearance can be placed on a specific
' page in the PDF document, and at a specified location on the page.
' The 1st page of the PDF document is page number 1 (we don't use 0-based numbering for PDF page numbers).
' The PDF object has a NumPages property, so we can use it to sign on the last page of the PDF.
success = json.UpdateInt("page",pdf.NumPages)

' appearance.y and appearance.x JSON properties control the x,y location of the signature.
' The "appearance.y" can be "top" or "bottom".
' The "appearance.x" can be "left", "middle", or "right".
' It is also possible to specify exact PDF location in user space coordinates, which is discussed below.
success = json.UpdateString("appearance.y","bottom")
success = json.UpdateString("appearance.x","middle")

' In this example, the fontScale (in combination with the number of appearance text lines and the length of the longest text line),
' automatically determine the width/height of the signature text box. Any included graphic (JPG image or built-in SVG) is automatically
' scaled to fit. It is alternatively possible to specify the desired width/height of the signature rectangle.  In that case
' you would NOT specify a fontScale because Chilkat would automatically chose a font scale to fit the text to the desired rectangle.
' This example demonstrates how to specify the exact width/height of the PDF signature text box.
success = json.UpdateString("appearance.fontScale","9.0")

success = json.UpdateString("appearance.text[0]","Digitally signed by: cert_cn")
success = json.UpdateString("appearance.text[1]","current_dt")
success = json.UpdateString("appearance.image","document-accepted")
success = json.UpdateString("appearance.imagePlacement","left")
success = json.UpdateString("appearance.imageOpacity","100")

' 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","pfx_password")
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

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."

' The appearance of the signature appears in Adobe Acrobat as shown here:

' ----------------------------------------------------------------------------------------------------
' *** Scroll down for information about specifying the PDF signature x,y location in user space coordinates.
' ----------------------------------------------------------------------------------------------------



' The x,y coordinates of a PDF page are in "user space", called "points", and there are 72 pointes per inch.
' A PDF page (8.5" x 11") is 612 points wide and 792 points high.
' The bottom left is at 0,0.    The top right is at 612,792.
' 
' To specify the location of a signature rectangle, the "appearance.y" is the y coordinate of the top of the signature rectangle,
' and the "appearance.x" is the x coordinate of the left of the signature rectangle.
' Therefore, to position the signature rectangle at the exact top/left of the page, we do this:

success = json.UpdateString("appearance.y","792")
success = json.UpdateString("appearance.x","0")

success = json.UpdateString("appearance.text[0]","Digitally signed again by: cert_cn")
success = json.UpdateString("appearance.text[1]","current_dt")
success = json.UpdateString("appearance.image","document-accepted")
success = json.UpdateString("appearance.imagePlacement","right")

Dim pdf2 As Chilkat.Pdf
Set pdf2 = Chilkat.NewPdf
success = pdf2.LoadFile("qa_output/hello_signed.pdf")
success = pdf2.SetSigningCert(cert)

success = pdf2.SignPdf(json,"qa_output/hello_signed2.pdf")
If (success = False) Then
    Debug.Print pdf2.LastErrorText
    Exit Sub
End If

Debug.Print "The PDF has been successfully cryptographically signed again."

' Here we have the PDF with the signature just added at the exact top/left.


 

© 2000-2022 Chilkat Software, Inc. All Rights Reserved.