Dim PDFFont1 As PDFjetFont
Dim Cp As PDFjetCodePage
Dim InputStream1 As InputStream
InputStream1 = File.OpenInput(File.DirAssets,"iran_sans.ttf")
PDFFont1.Initialize4(PDFjetPDF1,InputStream1,PDFjetConstants1.CodePage.UNICODE,False)
InputStream1.Close