How to set watermarks for pages in generated PDF document using PDFDoc Scout

You can download the source code of this example here: pdfdocscout_using_watermarks.zip

This example describes how to use watermarking support in PDFDoc Scout library (using HTML2PDF rendering features to produce watermark text):

Option Explicit

Dim PDFDoc, WatermarkIndex, WatermarkPage, i, j
Set PDFDoc = CreateObject("PDFDocScout.PDFDocument")

PDFDoc.InitLibrary "demo", "demo"
PDFDoc.OutputFilename = "Using_Watermarks.pdf"
PDFDoc.AutoOpenGeneratedPDF = true

PDFDoc.BeginDocument

' create a watermak
WatermarkIndex = PDFDoc.AddWatermark
' access watermark object replicating IPage object interface
Set WatermarkPage = PDFDoc.Watermarks(WatermarkIndex)
' draw a header
PDFDoc.Watermarks(WatermarkIndex).Width = PDFDoc.Page.Width
PDFDoc.Watermarks(WatermarkIndex).Height = PDFDoc.Page.Height

WatermarkPage.AddHTMLBox "This is a <b>header</b> text watermark", 0,0,400,100, false
' draw a footer

WatermarkPage.AddHTMLBox "This is a <b>Footer</b> text watermark", 0, PDFDoc.PageHeight-300,PDFDoc.PageWidth,PDFDoc.PageHeight, false

For I = 0 to 20
PDFDoc.Page.AddHTMLBox "content of #" & CStr(I) & " page goes here", 200, 200, 400,400, true
PDFDoc.AddPage
Next

' now set watermark for all existing pages in PDF document

For I=0 to PDFDoc.PagesCount-1
PDFDoc.Pages(I).WatermarkIndex = WatermarkIndex
Next

PDFDoc.EndDocument ' close PDF document generation

' disconnect from library
Set PDFDoc = Nothing