PDF Wasserzeichen

Die Funktion create_PDF_Watermark fügt einen neuen Layer auf der übergebenen Seite ein und berechnet den neuen Inhalt auf diesem neuen Layer. Dies ist eine ideale Funktion um Wasserzeichen in bestehende PDF Dokumente einzufügen.

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