This example shows how to add complex scripts such as Chinese, Japanese and Korean. Here, we choose to embed and subset our font to ensure our document renders correctly on all platforms.

First, we create an ABCpdf Doc object and set the font size.

Set theDoc = Server.CreateObject("ABCpdf12.Doc")
theDoc.FontSize = 32

We read in our Japanese text from a Unicode text file.

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\mypdfs\Japanese2.txt", 1, False, -1)
theText = f.ReadAll

Because we want to ensure that our document renders correctly on all platforms, we're going to embed our font in Unicode format. We specify a left-to-right writing direction, and we choose to subset our font.

Please note when embedding fonts, you must ensure you have permission to embed and redistribute the embedded font as part of your PDF.

theDoc.Page = theDoc.AddPage()
theDoc.Font = theDoc.EmbedFont("MS PGothic", "Unicode", False, True)
theDoc.AddText "Japanese" & theText

Just to show how it works, we'll also render a page in vertical writing mode.

theDoc.Page = theDoc.AddPage()
theDoc.Font = theDoc.EmbedFont("MS PGothic", "Unicode", True, True)
theDoc.AddText "Japanese" & theText

Finally, we save at a specified location.

theDoc.Save "c:\mypdfs\unicode.pdf"

We get the following output.

unicode.pdf [Page 1]

unicode.pdf [Page 2]