>#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.) >