rl = create("ReportListener") rl.ListenerType = 1 pc = null do (_reportpreview) with pc pc.SetExtensionHandler( newobject("PreviewExtension") ) rl.PreviewContainer = m.pc report form ? object m.rl return define class PreviewExtension as custom procedure Show( iModal ) THIS.PreviewForm.WindowState = 2 THIS.PreviewForm.Toolbar.Dock(0) endproc procedure AddBarsToMenu( cPop, iNext ) endproc procedure HandledKeyPress( nKey, nMod ) endproc procedure Paint() endproc procedure Release() endproc enddefineBy default, the preview container will remember how you left the preview window for that report and restore the settings. But this should override that.
*------------------------------------ * A Customised ReportPreview Factory. * _REPORTPREVIEW = <this program> *------------------------------------ lparameter pcRef do HOME()+"ReportPreview.App" with pcRef pcRef.SetExtensionHandler( newobject("PreviewExtension") ) return define class PreviewExtension as custom :I hope this helps,