Mistake font,when export to PDF file with other language

[Bermusa]

Hi Everyone,

I used K. Babu sample code below to export .rpt file to .pdf file,but I found the problem about font to export it did not same original rpt file if it was not the English language,please suggest how to fix it.

K. Babu code

///////////////////////////////////////////////////////////////////////////

Sample VB Code for Export PDF Format from Crystal Report 8.5 in VB at Run Mode.

--------------------------------------------------------------------------------

You can find out the answers from the VB code for the following questions.

Q:
How to open MSAccess database file from select path in VB at run mode?
How to hide password prompt dialog box, from the protected database file?
How to open OCX report file to RDC method?
How to Export PDF format without Preview screen?
How to Hide export prompt dialog box?
How to Filter the data records in VB at Run mode?
How to open automatically Exported PDF file with acrobatreader?


Code:

Dim crrpt As New CRAXDRT.Report
Dim crapp As New CRAXDRT.Application

Set crrpt = crapp.OpenReport("C:\Projects\quotation.rpt")
crrpt.Database.Tables(1).Location = "C:\Projects\BrCusinfo.mdb"
crrpt.Database.Tables(1).SetLogOnInfo "CRSS", "BrCusinfo.mdb", "Admin", "hello"

crrpt.RecordSelectionFormula = "{quequotation.QuotationNo} = " & 58
crrpt.ExportOptions.ApplicationFileName = "C:\Projects\expquotation.pdf"
crrpt.ExportOptions.DestinationType = crEDTApplication
crrpt.ExportOptions.DiskFileName = "C:\Projects\expquotation.pdf"
crrpt.ExportOptions.PDFExportAllPages = True
crrpt.ExportOptions.FormatType = crEFTPortableDocFormat
crrpt.Export False

'Remarked Viewer Report Output
'CRViewer1.ReportSource = crrpt
'CRViewer1.ViewReport

///////////////////////////////////////////////////////////////////////

Regards,
Bermusa