oListener = CreateOBJECT('rlswap') oListener.strFilter = strfilter oListener.PreviewContainer = Thisformset.frmDisplay oListener.ListenerType = 1 && Preview Mode. Render all pages and output to _REPORTPREVIEW Report Form (Thisformset.strReportName) Object oListener