SET REPORTBEHAVIOR 90

IF TYPE("oReportListener") = "O"
   DO CASE
      CASE oReportListener.ListenerType = 1  && this means a preview window

           * oVP - creo y seteo el objeto Preview
           oVP = NULL
           DO (_REPORTPREVIEW) with oVP 

           * set initial properties of the preview window:
           WITH oVP
                .caption = "My preview window"
                .ToolbarIsVisible = .T.          && with toolbar
           ENDWITH

           * Assign our Preview container to the listener:
           oReportListener.PreviewContainer = oVP
   ENDCASE
ENDIF

REPORT FORM MyReport OBJECT oReportListener