>LOCAL loPreviewContainer, ; > loListener, ; > lcReportPreview > > DO (_REPORTPREVIEW) WITH loPreviewContainer > > WITH loPreviewContainer > .AllowPrintFromPreview = .F. > .Top = _screen.Top > .Left = _screen.Left > .Width = _screen.Width > .Height = _screen.Height > ENDWITH > > loListener = CREATEOBJECT("ReportListener") > loListener.PreviewContainer = loPreviewContainer > loListener.ListenerType = 1 > > REPORT FORM Sample OBJECT loListener >>