PDF Stamping

With the Aloaha PDF SDK it is very easy to apply text stamps to existing PDF Documents. Such documents can even be 40 and 128 Bit encrypted. Aloaha will decrypt them (without knowing the owner password), apply the text stamp and re-encrypt the PDF documents. Please find the sample sourcecode below. To be able to run this code you need to install the Aloaha PDF Suite from http://www.aloaha.com/download/aloaha_pdf.zip  

It is also possible to create dynamic, self updating time stamps. Please learn more on:
http://www.aloaha.com/software-development/dynamik-time-stamp.php


Dim pdf 
Dim tsLeft
Dim tsTop
Dim tsWidth
Dim tsHeight

Set pdf = CreateObject("aloahapdf.edit") 

tsleft = 1
tstop = 400
tswidth = 25
tsheight = 25

If pdf.load_pdf_to_mem("c:\1.pdf") = true Then
   If pdf.make_tstamp(cdbl(tsLeft), cdbl(tsTop), cdbl(tsWidth), cdbl(tsHeight), "test123") = true Then
      If pdf.save_pdf_to_file("c:\adfasf.pdf") = true Then
         MsgBox "OK"
      End If
   End If
End If

Set pdf = nothing