activereport 出ｐｄｆ乱码 求救！


                .dclADO.ConnectionString = "Password=" & mstrPWD & ";" & _
                                            "User ID=" & mstrUID & ";" & _
                                            "Data Source=" & mstrDSN & ";"
                        
                .dclADO.Source = strSql
                                .DetailCount = lngDataCnt
                
                .DataList = strListData
                
                .Printer.DeviceName = mPntPrinter.DeviceName
                
                .Printer.PaperSize = vbPRPSA4
                
                .Printer.Orientation = ddOPortrait
                
                .Label1.Caption = mcstrPgId
                
                strFILENM = mstrDirPath & mcstrPgId & strDate & ".PDF"
                
                Dim pdf As New ActiveReportsPDFExport.ARExportPDF
                
                
                pdf.FileName = strFILENM
                
                .Run
                
                pdf.Export .Pages上面是代码 原先模板里面的字体是汉字 结果保存出来的pdf是乱码  
在网上找了 都说去设置一下字体 就行了。但是我也在模板里每一个项目的字体都设置了，不管用。求救