Crystal Reports 到 PDF 转换器（无 Crystal Report Viewer）

• 下载源代码 - 14 Kb

引言

导入CrystalDecisions.CrystalReports.Engine

导入CrystalDecisions.Shared

Public 类clsCrystalToPDFConverter

DimConInfoAs 新建CrystalDecisions.Shared.TableLogOnInfo

DimoRDocAs 新建ReportDocument

DimexpoAs 新建ExportOptions

DimsRecSelFormulaAs 字符串

DimoDfDoptAs 新建DiskFileDestinationOptions

DimstrCrystalReportFilePathAs 字符串

DimstrPdfFileDestinationPathAs 字符串

Public 函数SetCrystalReportFilePath(ByValCrystalReportFileNameFullPathAs 字符串)

strCrystalReportFilePath = CrystalReportFileNameFullPath

End 函数

Public 函数SetPdfDestinationFilePath(ByValpdfFileNameFullPathAs 字符串)

strPdfFileDestinationPath = pdfFileNameFullPath

End 函数

Public 函数SetRecordSelectionFormula(ByValrecSelFormulaAs 字符串)

sRecSelFormula = recSelFormula

End 函数

Public 函数Transfer()

oRDoc.Load(strCrystalReportFilePath)加载水晶报表到内存

oRDoc.RecordSelectionFormula = sRecSelFormula如果你想将查询传递到你的水晶报表，可以使用此项

oDfDopt.DiskFileName = strPdfFileDestinationPathPDF 文件保存路径

expo = oRDoc.ExportOptions

expo.ExportDestinationType = ExportDestinationType.DiskFile

expo.ExportFormatType = ExportFormatType.PortableDocFormat

expo.DestinationOptions = oDfDopt

oRDoc.SetDatabaseLogon("PaySquare", "paysquare")数据库登录信息

oRDoc.Export()

End 函数

End 类