* 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 NOWAITThanks again for taking a look at this.