Dim memStream As MemoryStream
            memStream = projekt_r.ExportToStream(ExportFormatType.Excel)
            Response.Clear()
            Response.Buffer = True
            Response.ContentType = "application/xls"
            Response.BinaryWrite(memStream.ToArray)
            Response.End()