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

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

   DC.setParameter("StationeryFile", "d:\stat.pdf")

   DC.setParameter("StampRotate", "0")
   DC.setParameter("StampX", "0")
   DC.setParameter("StampY", "0")

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

   DC.setParameter("PlaceStationeryOnPages", "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