Activate toolbar with DoCmd.ShowToolbar
Private Sub Report_Activate() DoCmd.ShowToolbar "AllOrders", acToolbarYes End Sub