PrintImage

説明

既存の PDF ページに画像を出力します。ページを指定しない場合、新しいページが生成されます。サポートする画像タイプの一覧は「付録 E: サポートする画像タイプ」を参照してください。

注意 : JPEG または TIFF には PrintJPEG または PrintTIFF メソッドを使用します。

戻り値の型

Long

戻り値

説明

-998

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

-997

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

99

ファイル名の無効なパス

97

無効な画像タイプ

1

正常終了

構文

object.PrintImage ImageFileName, X, Y, Width, Height, PersistRatio, PageNr

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

パラメータ

値の型

説明

Object

 

Toolkit オブジェクト

ImageFileName

String

画像へのフルパス

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

X

Float

画像の左下角の X 座標。PDF 座標で指定します。

Y

Float

画像の左下角の Y 座標。PDF 座標で指定します。

Width

Float

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

Height

Float

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

PersistRatio

Long

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

DPI 情報のないファイル形式を出力するときは、Height と Width を渡し、PersistRatio を1 に設定する必要があります。

 

 

0 = 高さと幅を伸縮

PageNr

Long

オプション

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

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

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

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

Set TK = CreateObject("APToolkit.Object")

r = TK.OpenOutputFile("Output.pdf")

r = TK.PrintImage("Image.bmp", 0, 0, 0, 0, False)

If r <> 1 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