>* CrystalReportViewer.Init() >PARAMETERS tcReport >thisform.frmreport=tcReport >WITH This > * Instantiate Crystal Runtime > * and add the report viewer to the form > .oCrystalReports = CREATEOBJECT("CrystalRuntime.Application") > .oReport = .ocrystalreports.OpenReport(thisform.frmReport) > .AddObject("oleCRViewer", "oleControl", "crViewer.crViewer") > SET STEP ON > WITH .oleCRViewer > * Set report viewer properties > .Top = 1 > .Left = 1 > .Height = ThisForm.Height - 2 > .Width = ThisForm.Width - 2 > .ReportSource = ThisForm.oReport > .EnablePrintButton = .T. > .EnableExportButton = .T. > .ViewReport() > ENDWITH >ENDWITH > >>