PDF Watermark

The function create_PDF_Watermark inserts a new layer on the given page and renders the new content on that new layer. This is an ideal function to place watermarks into existing PDF documents. 

function create_PDF_Watermark(WatermarkFile String, PageNo, Layer) As Boolean


Dim pdf
Dim inputfile
Dim watermark
Dim target

inputfile = "d:\radar_control.pdf"
watermark ="d:\Aloaha-Briefbogen.pdf"
target = "d:\target.pdf"

Set pdf = CreateObject("aloahapdf.edit")

If pdf.load_pdf_to_mem(CStr(Inputfile)) = true Then
          Call pdf.create_PDF_Watermark(CStr(watermark), 1, 1)
          Call pdf.save_pdf_to_file(CStr(target))
End If

Set pdf = Nothing