説明
CurrentLogoNumber により、AddLogo または PrintLogo を呼び出すときに 1 (デフォルト) 以外の指定するページ番号を選択できます。
戻り値の型
Short
構文
object.CurrentLogoNumber = value
CurrentLogoNumber プロパティは次のパラメータから構成されています。
|
パラメータ |
値の型 |
説明 |
|
Object |
|
Toolkit オブジェクト |
|
Value |
Short |
デフォルトの 1 以外に指定するページ番号 |
例
strPath = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".") & "\"
Set TK = CreateObject("APToolkit.Object")
'CreateLogoFile
r = TK.OpenOutputFile("Output.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
r = TK.OpenOutputFile("Output.pdf")
'add new logos to Input file
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