1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

   Dim DC As Object : DC = CreateObject("Neevia.docCreator")

   DC.setParameter("StampMessage", "Page {p} of {P}")

   DC.setParameter("StampRotate", "0")
   DC.setParameter("StampX", "100")
   DC.setParameter("StampY", "100")
   DC.setParameter("StampFontName", "Helvetica")
   DC.setParameter("StampFontSize", "14")
   DC.setParameter("StampFontColor", "$000000")

   'place the watermark as stamp (over the page content)
   DC.setParameter("Watermark", "false")

   DC.setParameter("PlaceStampOnPages", "0")

   Dim RVal As Integer : RVal = DC.stampPDF("d:\test.pdf", "d:\out.pdf")

   DC = Nothing

   If RVal = 0 Then
      MsgBox("Done !!!")
   Else
      MsgBox("There was an error stamping the document !!!")
   End If