activePDF Toolkit - Beispiel-Code und HowTo's

<%
Set TK = Server.CreateObject("APToolkit.Object")

R = TK.OpenOutputFile(Server.MapPath("Output.pdf"))
R = TK.OpenInputFile(Server.MapPath("Input.pdf"))

'Copy the first 3 pages to the output
R = TK.CopyForm(1, 3)

'Add the header image, Set Header parameters
imagefile = Server.MapPath("image.jpg")
x = 0 '72 = 1 inch, 0 ,0 is bottom left of page
y = 0 '72 = 1 inch, 0 ,0 is bottom left of page
width = 0 '0 for no change
height = 0 '0 for no change
PersistRatio = True

TK.SetHeaderImage imagefile, x, y, width, height, True

'Copy Just the fourth page with the image to the output
R = TK.copyform(4, 4)

'Clear Header information so it will not appear subsequent pages
TK.ClearHeaderInfo

'Copy page 5 and on to the output
R = TK.copyform(5, 0)

R = TK.CloseOutputFile()

Response.Write "Finished"

Set TK = Nothing
%>

<%
Set TK = Server.CreateObject ("APToolkit.Object")

'Specify the file that will be created
R = TK.OpenOutputFile (Server.MapPath("Output.pdf"))

'Page Number variables
'NumPages also acts as OpenInputFile
strTotalPages = TK.NumPages (Server.MapPath("Input.pdf"))

'Font variables
strFont = "Arial"
strFontSizeText = "16"
strFontSizePage = "12"

'Add the header image, Set Header parameters
imagefile = Server.MapPath("image.jpg")
x = 0 '72 = 1 inch, 0 ,0 is bottom left of page
y = 20 '72 = 1 inch, 0 ,0 is bottom left of page
width = 0 '0 for no change
height = 0 '0 for no change
PersistRatio = True


'Stamp Image on the page
TK.SetHeaderImage imagefile, x, y, width, height, True

'Set the font, Location and Text
TK.SetHeaderFont strFont, strFontSizeText
TK.SetHeaderText 15, 10, "activePDF, Inc."

'Set the PageNumber location and text
'Using GetTextWidth to stamp in the center of the page
TK.SetHeaderFont strFont, strFontSizePage
strPageNumberText = "Page %p of " & strTotalPages
strPageNumberWidth = TK.GetHeaderTextWidth(strPageNumberText)
xt = (612 - strPageNumberWidth) / 2
TK.SetHeaderWPgNbr xt, 10, "Page %p of " & strTotalPages, 1

'Copy the current page to OutputFile
R = TK.copyform(strPage, strPage)

'Clear the Header information beacuse we are stamping dynamic data
TK.ClearHeaderInfo

'All done close the outputFile
R = TK.CloseOutputFile()

Set TK = Nothing
%>

<%
Set TK = Server.CreateObject ("APToolkit.Object")

R = TK.OpenOutputFile (Server.MapPath("Output.pdf"))
R = TK.OpenInputFile (Server.MapPath("Input.pdf"))

field = "image"
image = Server.MapPath("image.jpg")
'-996 Flatten field using an image file as named in field data.
'The image type is auto-determined. For more flags please
'consult the Toolkit Documentation.
flag = -996

TK.SetFormFieldData field, image, -996

R = TK.copyform(0, 0)
R = TK.CloseOutputFile()

Set TK = Nothing

Response.Write "Finished"
%>

<%

Set TK = Server.CreateObject("APToolkit.Object")

' Open a handle to the output file
r = TK.OpenOutputFile(Server.MapPath("WithLogos.PDF"))
' Open the template
r = TK.OpenInputFile(Server.MapPath("10PAGEPDF.PDF"))

' Specify the first Logo
TK.AddLogo Server.MapPath("LOGO 1.PDF"), 1
' Apply it to pages 1 - 5
r = TK.CopyForm(0,5)
' Clear the Logo for the next round
TK.ClearLogosAndImages
' Specify the second Logo
TK.AddLogo Server.MapPath("LOGO 2.PDF"), 1
' Apply it to pages 6 - 10
r = TK.CopyForm(6, 10)
' Close the Output file
TK.CloseOutputFile

Set TK = Nothing

%>