スタンプのページ指定

このチュートリアルでは、Toolkit を使用して他のページに変更を加えずに 10 ページの PDF 文書の 4 ページ目に画像をスタンプします。

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

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

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

サンプル スクリプト

Set TK = CreateObject ("APToolkit.Object")

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

R = TK.OpenInputFile ("Input1.pdf")

' 最初の 3 ページを出力ファイルにコピー

      R = TK.CopyForm(1, 3)

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

      imagefile = "image1.jpg"

      x = 0 ' 72 = 1 インチ, 0 ,0 はページの左下

      y = 0 ' 72 = 1 インチ, 0 ,0 はページの左下

      width = 0 ' 0 は変更なし

      height = 0 ' 0 は変更なし

      PersistRatio = True

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

' 画像と一緒に 4 ページ目を出力ファイルにコピー

      R = TK.copyform(4, 4)

' 以降のページに出力されないようにヘッダー情報をクリア

      TK.ClearHeaderInfo

' 残りの 5 ページを出力ファイルにコピー

      R = TK.copyform(5, 0)

R = TK.CloseOutputFile()

Set TK = Nothing