Heineken earnings take European shares to report peak