#DEFINE crEDTDiskFile 1 #DEFINE crEFTPortableDocFormat 31 #DEFINE crPortrait 1 #DEFINE crLandscape 2 loCrystal=CreateObject("CrystalRuntime.Application") loReport=loCrystal.OpenReport("REPORTPATH.rpt",1) loReport.ExportOptions.DestinationType = crEDTDiskFile loReport.ExportOptions.FormatType = crEFTPortableDocFormat loReport.ExportOptions.DiskFileName = "OUTPUTFILEPATH.PDF" loReport.Export(.F.)