Private Sub Report_Open(Cancel As Integer)DoCmd.MaximizeMenuGosterEnd Sub Private Sub Report_Close()MenuGizleEnd Sub