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 : Set DC = CreateObject("Neevia.docConverter")

   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 : RVal=DC.stampPDF("c:\users\public\in.pdf", "c:\users\public\out.pdf")

   Set DC = Nothing

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