スタンプ

このチュートリアルでは、Toolkit を使用して画像、会社名、およびページ番号を PDF 文書の各ページにスタンプします。

サンプルに必要なファイル

JPEG (ファイル名 : Image1.jpg)
複数ページの PDF (ファイル名 : Output1.pdf)

サンプルスクリプト

例:

Set TK = CreateObject ("APToolkit.Object")

' 生成するファイルを指定

R = TK.OpenOutputFile ("Output1.pdf")

' ページ数をカウントする

' NumPages メソッドを使用する場合、OpenInputFile は不要
strTotalPages = TK.NumPages("TKStamping.pdf")

' フォント指定用変数

strFont = "Arial"
strFontSizeText = "16"
strFontSizePage = "12"

' ヘッダーイメージを追加、パラメータの設定

imagefile = "Image1.jpg"
x = 0 '72 = 1 インチ、 0, 0 はページ左下
y = 20 '72 = 1 インチ、 0, 0 はページ左下
width = 0 '0 は変更なし
height = 0 '0 は変更なし
PersistRatio = True

' 画像をページにスタンプ

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

' フォント、出力位置、およびテキストの設定

TK.SetHeaderFont strFont, strFontSizeText
TK.SetHeaderText 15, 10, "Your Company Name"

' ページ番号、出力位置、およびテキストの設定
' GetTextWidth メソッドを使用してページ中央にスタンプする

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

' 現在のページを出力ファイルにコピー

R = TK.copyform(strPage, strPage)

' 動的データをスタンプしたので、ヘッダー情報をクリアする

TK.ClearHeaderInfo

' 出力ファイルを閉じる

R = TK.CloseOutputFile()

Set TK = Nothing

activePDF Toolkit 2011 API リファレンス
スタンプ