loCr = CREATEOBJECT("CrystalRuntime.Application") lcPDFReportName = 'ReportName.PDF' loCrRpt = loCr.OpenReport('ReportName.RPT') loCrData = loCrRpt.Database loCrTables = loCrData.Tables loCrTables.Item(1).Location = 'ReportData.DBF' loExportOptions = loCrRpt.ExportOptions loExportOptions.DestinationType = 1 && crEDTDiskFile loExportOptions.FormatType = 31 && PDF loExportOptions.DiskFileName = lcPDFReportName loCrRpt.DiscardSavedData() loCrRpt.Export(.F.) loExportOptions = NULL loCrTables = NULL loCrData = NULL loCrRpt = NULL loCr = NULLSasha