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

  DC = Nothing

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