activePDF Toolkit 2011 API リファレンス
スタンプのページ指定
チュートリアル
> スタンプのページ指定
Glossary Item Box
このチュートリアルでは、Toolkit を使用して他のページに変更を加えずに 10 ページの PDF 文書の 4 ページ目に画像をスタンプします。
サンプルに必要なファイル
JPEG (ファイル名 : Image1.jpg)
10 ページの PDF (ファイル名: Output1.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