 |
Example 5: Stamp a PDF file with multiple stamps (ASP) |
|
 |
<%
Dim NVstamp : Set 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
Response.Write("Error code=" & CStr(retVal))
Else
Response.Write("Done")
End If
%>
|
|
 |
|