Dim report As New Report(Json.Read(server.MapPath("example1.rrpt"))) report.Fill(New ReportDataSource(getDataTable)) Dim pages As ReportPages = report.GetPages() Using out As Stream = response.OutputStream
Dim workbook As New HSSFWorkbook
Dim renderer As New XlsRenderer(workbook)
renderer.NewSheet("sheet_name")
pages.Render(renderer)
workbook.Write(out)
response.ContentType = "application/vnd.ms-excel"
response.AddHeader("content-disposition", "filename=filename=output.xls")
response.End()
End Using
Dim report As New Report(Json.Read(server.MapPath("example1.rrpt"))) report.Fill(New ReportDataSource(getDataTable)) Dim pages As ReportPages = report.GetPages() Using out As Stream = response.OutputStream
Dim workbook As New XSSFWorkbook
Dim renderer As New XlsxRenderer(workbook)
renderer.NewSheet("sheet_name")
pages.Render(renderer)
workbook.Write(out)
response.ContentType = "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet"
response.AddHeader("Content-Disposition", "attachment;filename=output.xlsx")
response.End()
End Using