Set objTK = CreateObject("APToolkit.Object")
' 生成する PDF を指定します。
r = objTK.OpenOutputFile(App.Path & "\出力された.pdf")
' activePDF に含まれるフォントを使用する場合
objTK.SetFont "HeiseiMin-W3-Acro|encoding=UniJIS-UCS2-H", 15
objTK.PrintText 100, 700, "日本語フォントのテスト : ネイティブ フォント"
' Windows に含まれるフォントを使用する場合
' BREAKTTC.EXE を使用して TTC ファイルを TTF ファイルに分割する必要があります。
objTK.SetFont "D:\WINNT\Fonts\msuigothic.ttf", 15
objTK.PrintText 100, 650, "日本語フォントのテスト : Windows フォント"
objTK.CloseOut
|