loListener = createobject('ReportListener') >report form MyReport preview object loListener nowait >loExtension = createobject('ExtensionHandler') >loListener.PreviewContainer.SetExtensionHandler(loExtension) >loListener.PreviewContainer.oForm.Toolbar.cmdPrint.Visible = .F. > >define class ExtensionHandler as Custom > function AddBarsToMenu(tcMenu, tnNextBar) > release bar 12 of &tcMenu > endfunc > > function Release > if type('This.PreviewForm') = 'O' > This.PreviewForm.ExtensionHandler = .NULL. > This.PreviewForm = .NULL. > endif type('This.PreviewForm') = 'O' > endfunc > > function Show(tnStyle) > endfunc > > function Paint > endfunc > > function HandleKeyPress(tnKeyCode, tnShiftAltCtrl) > endfunc >enddefine>