 |
Example 2: Stamp a PDF file with a multiline text watermark (VB.NET) |
|
 |
Dim NVstamp : NVstamp = CreateObject("PDFstamp.Neevia")
Dim indx : indx = NVstamp.CreateNewStamp
NVstamp.Stamps(indx).StampType = 1
NVstamp.Stamps(indx).Name = "Stamp1"
NVstamp.Stamps(indx).Text = "LINE1%n%LINE2%n%LINE3"
NVstamp.Stamps(indx).FontName = "Arial"
NVstamp.Stamps(indx).TextRenderingMode = 0
NVstamp.Stamps(indx).TextColor = "#FF0000"
NVstamp.Stamps(indx).X = "center"
NVstamp.Stamps(indx).Y = "center"
NVstamp.Stamps(indx).Width = "200"
NVstamp.Stamps(indx).Height = "200"
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
|
|
 |
|