PrintJPEG

説明

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

注意 : その他の画像タイプまたは TIFF については、PrintImage または PrintTIFF メソッドを使用します。

戻り値の型

Long

戻り値

説明

-998

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

-997

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

-3

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

-1

無効な JPEG ファイルまたはストリーム

>0

正常終了

構文

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

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

パラメータ

値の型

説明

Object

 

Toolkit オブジェクト

FileName

String

JPEG へのフルパス。

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

X

Float

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

Y

Float

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

Width

Float

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

Height

Float

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

PersistRatio

Long

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

 

 

0 = 高さと幅を伸縮

PageNr

Long

オプション

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

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

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

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

Set TK = CreateObject("APToolkit.Object")

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

r = TK.PrintJPEG("Image.jpg", 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