PrintTIFF

説明

既存の PDF ページに TIFF を出力します。ページを指定しない場合、新しいページが生成されます。 

注意 : その他の画像の種類または JPEG については PrintImage または PrintJPEG メソッドを使用します。

戻り値の型

Long

戻り値

説明

-998

製品の未登録/評価版の期限切れ

-997

必要な製品バージョンの未登録

99

入力ファイルを開けません

97

無効な TIFF ファイルの指定

1

正常終了

構文

object.PrintTIFF FileName, X, Y, Width, Height, PersistRatio, PageNr

PrintTIFF メソッドは次のパラメータから構成されています。

パラメータ

値の型

説明

Object

 

Toolkit オブジェクト

FileName

String

TIFF へのフルパス。

ImageByteStream プロパティが、レコードセットまたは他のソースから有効な TIFF に設定された場合、FileName パラメータを "MEMORY" に設定することができます。

X

Float

TIFF の左下角の X 座標

Y

Float

TIFF の左下角の Y 座標

Height

Float

PDF の表示単位で指定された TIFF の高さ (画像のデフォルトには 0 を設定します)

Width

Float

PDF の表示単位で指定された TIFF の幅 (画像のデフォルトには 0 を設定します)

PersistRatio

Long

1 = 高さと幅は固定比率 (0 以外を設定した場合)

 

 

0 = 高さと幅を伸縮

PageNr

Long

オプション

0  = 入力ファイルの新規のページや現在開いているぺ−ジ、または表紙で動作 (デフォルト)

>1 = 指定したページで動作

-1 = すべてのページで動作

strPath = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".") & "\"

Set TK = CreateObject("APToolkit.Object")

TK.OpenOutputFile ("Output.pdf")

r = TK.PrintTIFF("Image.tif", 0, 0, 0, 0, False)

If r > 0 Then

MsgBox "error on PrintImage: " & r

End If

TK.SetFont "Courier", 15

TK.PrintText 200, 500, "This will be on the same page"

TK.CloseOutputFile

Set TK = Nothing