Code Samples - Neevia PDFstamp

 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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53

   Dim NVstamp : NVstamp = CreateObject("PDFstamp.Neevia")

   Dim indx : indx = NVstamp.CreateNewStamp
   NVstamp.Stamps(indx).StampType = 0
   NVStamp.Stamps(indx).Name = "Stamp1"
   NVStamp.Stamps(indx).Text = "WATERMARK"
   NVStamp.Stamps(indx).FontName = "Arial"
   NVStamp.Stamps(indx).FontSize = 40
   NVStamp.Stamps(indx).TextRenderingMode = 0
   NVStamp.Stamps(indx).TextColor = "#FF0000"
   NVStamp.Stamps(indx).X = "0"
   NVStamp.Stamps(indx).Y = "0"
   NVStamp.Stamps(indx).PlaceAs = 1

   indx = NVstamp.CreateNewStamp
   NVstamp.Stamps(indx).StampType = 1
   NVstamp.Stamps(indx).Name = "Stamp2"
   NVstamp.Stamps(indx).Text = "LINE1%n%LINE2%n%LINE3"
   NVstamp.Stamps(indx).FontName = "Arial"
   NVStamp.Stamps(indx).FontSize = 40
   NVstamp.Stamps(indx).TextRenderingMode = 0
   NVstamp.Stamps(indx).TextColor = "#FF0000"
   NVstamp.Stamps(indx).X = "right"
   NVstamp.Stamps(indx).Y = "0"
   NVstamp.Stamps(indx).Width = "200"
   NVstamp.Stamps(indx).Height = "200"
   NVstamp.Stamps(indx).PlaceAs = 1

   indx = NVstamp.CreateNewStamp
   NVstamp.Stamps(indx).StampType = 2
   NVstamp.Stamps(indx).Name = "Stamp3"
   NVstamp.Stamps(indx).ImageFile = "c:\stamp.jpg"
   NVstamp.Stamps(indx).X = "0"
   NVstamp.Stamps(indx).Y = "top"
   NVstamp.Stamps(indx).PlaceAs = 1

   indx = NVstamp.CreateNewStamp
   NVstamp.Stamps(indx).StampType = 3
   NVstamp.Stamps(indx).Name = "Stamp4"
   NVstamp.Stamps(indx).PDFOverlayFile = "c:\overlay.pdf"
   NVstamp.Stamps(indx).X = "right"
   NVstamp.Stamps(indx).Y = "top"
   NVstamp.Stamps(indx).Scale = 50
   NVstamp.Stamps(indx).PlaceAs = 1

   Dim retVal
   retVal = NVstamp.StampPDF("c:\in.pdf", "c:\out.pdf")

   If retVal <> 0 Then
     MsgBox("Error code=" & CStr(retVal))
   Else
     MsgBox("Done")
   End If