>* Get a reference to the preview container API > Do (_ReportPreview) With oPreviewContainer > > * Set preview container API properties > With oPreviewContainer > .Caption = cCaption > .TopForm = .T. > EndWith > > * Create the report listener object and assign the preview container object > oReportListener = NewObject('ReportListener','_ReportListener') > With oReportListener > .DynamicLineHeight = .T. > .ListenerType = 1 > .PreviewContainer = oPreviewContainer > .QuietMode = .T. > EndWith > > Report Form (cReportName) OBJECT oReportListener NOWAIT >>