このチュートリアルでは、Toolkit を使用して 1 ページの内容を 8.5 x 11 インチの新しい PDF ファイルの 1 ページに 4 つ出力します。このチュートリアルを始めるにあたり、任意のテキストを含んだ 1 ページの PDF (ファイル名 : Input1.pdf) が必要です。「新規 PDF ファイルの作成」 チュートリアルで使用したサンプル B のスクリプトを変更して PDF を作成してください。
サンプル スクリプト
Set TK = CreateObject("APToolkit.Object")
r = TK.OpenOutputFile("Output1.pdf")
' 入力ファイル 1 ページの内容を、出力ファイル 1 ページ内に 4 つ出力する
r = TK.StitchPDF("Input1.pdf", 1, 0, 397, 306, 396, 0)
r = TK.StitchPDF("Input1.pdf", 1, 307, 397, 306, 396, 0)
r = TK.StitchPDF("Input1.pdf", 1, 0, 0, 306, 396, 0)
r = TK.StitchPDF("Input1.pdf", 1, 307, 0, 306, 396, 0)
r = TK.CloseOutputFile()
Set TK = Nothing