スタンプ

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

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

·         JPEG (ファイル名 : Image1.jpg)

·         複数ページの PDF (ファイル名 :  Input1.pdf)

サンプル スクリプト

Set TK = CreateObject ("APToolkit.Object")

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

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

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

' NumPages メソッドを使用する場合、OpenInputFile は不要

      strTotalPages = TK.NumPages("Input1.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