SetFont

説明

Toolkit で使用するフォントを指定します。

戻り値の型

なし

構文

object.SetFont FontName, FontSize, PageNr

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

パラメータ

値の型

説明

Object

 

Toolkit オブジェクト

FontName

String

大文字と小文字を区別したフォント名。詳細は次のセクションを参照してください。

FontSize

Float

フォントのサイズ。PDF の表示単位で指定します。

PageNr

Long

オプション

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

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

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

パラメータ

SetFont は、FontName パラメータに追加のサブパラメータを含みます。サブパラメータはフォント名に続き、パイプ記号 "| で区切ります。FontName は次のパラメータから構成されています。

Parameter

説明

encoding

使用するエンコード形式。エンコーディングのセクションを参照してください。

bold

1 = 太字、0 = デフォルト

italic

1 = 斜体字、 0 = デフォルト

index

1 から n (n は任意)。

フォントが TrueType Collection の場合、インデックスを定義します  (デフォルトは 1)。

defaultwidth

デフォルト幅を上書き (フォント単位で指定します)。

注意 : Toolkit に含まれるデフォルトのダブルバイトフォントをはじめ、多くのフォントはプロポーショナル フォントです。

パラメータをカンマで区切ることにより、FontName の後に複数のサブパラメータを渡すことができます。たとえば、FontName が Arial のフォントを太字にする場合は、"Arial|encoding, bold =1" とします。

その他の Encoding パラメータの例は次のとおりです。

·         "Tahoma|encoding=WinAnsiEncoding"

·         "mscomic.ttf|encoding=WinAnsiEncoding,bold=1"

·         "msmincho.ttf|encoding=UniJIS-UCS2-H"

また、フォント名をカンマで区切り、Bold、Italic、または BoldItalic を指定して太字や斜体字を設定できます。

·         Arial,Bold.

·         Arial,Italic.

·         Arial,BoldItalic.

注意 : 太字、斜体字、または太字斜体字のフォントが存在しない場合、 標準フォントが読み込まれ、PDF ビューアはそれらの属性を合成することがあります。これは bold および index パラメータにも適用されます。

エンコーディング

エンコーディング パラメータは次のエンコーディングをサポートします(標準、中国語、日本語、韓国語)。

Encoding Type

エンコーディング

標準フォント

WinAnsiEncoding

MacRomanEncoding

MacExpertEncoding

PDFDocEncoding

Identity-H

Identity-V

中国語 (簡体) フォント

Adobe-GB1-UCS2

UniGB-UCS2-H

UniGB-UCS2-V

中国語 (繁体) フォント

Adobe-CNS1-UCS2

UniCNS-UCS2-H

UniCNS-UCS2-V

日本語フォント

Adobe-Japan1-UCS2

UniJIS-UCS2-H

UniJIS-UCS2-V

UniJIS-UCS2-HW-H

UniJIS-UCS2-HW-V

韓国語フォント

Adobe-Korea1-UCS2

UniKS-UCS2-H

UniKS-UCS2-V

備考

Toolkit でのフォントの使用および特定方法は「Toolkit でのフォントの使用」 を参照してください。

例

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

Set TK = CreateObject("APToolkit.Object")

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

TK.SetTextColor 255, 0, 0, 0

TK.SetFont "EnviroSCDEE", 12

r = TK.PrintText(150, 700, "This is an activePDF test")

TK.ResetTextColor

TK.CloseOutputFile

Set TK = Nothing