説明
既存の PDF ページに PDF ロゴを出力します。ページを指定しない場合、新しいページが生成されます。
注意 : PrintLogo を呼び出す前に AddLogo を呼び出す必要があります。PrintLogo の直後に AddLogo を呼び出した場合、ロゴは MergeFile または CopyForm で指定したページにのみ追加されます。
戻り値の型
なし
構文
object.PrintLogo PageNr
PrintLogo メソッドは次のパラメータから構成されています。
|
パラメータ |
値の型 |
説明 |
|
Object |
|
Toolkit オブジェクト |
|
PageNr |
Long |
オプション 0 = 入力ファイルの新規のページや現在開いているぺ−ジ、または表紙で動作 (デフォルト) >1 = 指定したページで動作 -1 = すべてのページで動作 |
例
strPath = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".") & "\"
Set TK = CreateObject("APToolkit.Object")
'CreateLogoFile
r = TK.OpenOutputFile("Logo.pdf")
r = TK.PrintJPEG("Image1.jpg", 100, 400, 200, 300, False)
TK.NewPage
r = TK.PrintJPEG("Image2.jpg", 100, 400, 0, 0, False)
TK.CloseOutputFile 'close new logo file
'add new logos to Input file & copy to output
r = TK.OpenOutputFile("Output.pdf")
r = TK.OpenInputFile("Input.pdf")
r = TK.AddLogo("Logo.pdf", 1)
TK.CurrentLogoNumber = 1
TK.PrintLogo
r = TK.CopyForm(1, 1)
TK.CurrentLogoNumber = 2
TK.PrintLogo
r = TK.CopyForm(2, 0)
TK.CloseOutputFile
r = TK.DeleteFile("Logo.pdf")
Set TK = Nothing