Deactivate toolbar DoCmd.ShowToolbar
Private Sub Report_Deactivate() DoCmd.ShowToolbar "AllOrders", acToolbarNo End Sub