Default.aspx.vb

Imports Microsoft.VisualBasic
Imports System
Imports System.IO
Imports DevExpress.XtraCharts
Imports DevExpress.XtraCharts.Native
Imports DevExpress.XtraPrinting
Imports DevExpress.XtraPrintingLinks

Partial Public Class _Default
	Inherits System.Web.UI.Page
	Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
		If (Not IsPostBack) Then
			Tree.DataBind()
			Tree.ExpandToLevel(2)
		End If

		Chart.SeriesDataMember = "CategoryName"
		Chart.SeriesTemplate.ArgumentDataMember = "ProductSales"
		Chart.SeriesTemplate.ValueDataMembers.AddRange(New String() { "ProductSales" })
		Chart.SeriesTemplate.View = New StackedBarSeriesView()
	End Sub
	Protected Sub ExportButton_Click(ByVal sender As Object, ByVal e As EventArgs)
		Dim ps As New PrintingSystemBase()

		Dim link1 As New PrintableComponentLinkBase(ps)
		link1.Component = GridExporter

		Dim link2 As New PrintableComponentLinkBase(ps)
		link2.Component = TreeListExporter

		Dim link3 As New PrintableComponentLinkBase(ps)
		Chart.DataBind()
		link3.Component = (CType(Chart, IChartContainer)).Chart

		Dim compositeLink As New CompositeLinkBase(ps)
		compositeLink.Links.AddRange(New Object() { link1, link2, link3 })

		compositeLink.CreatePageForEachLink()

		Using stream As New MemoryStream()
			Dim options As New XlsxExportOptions()
			options.ExportMode = XlsxExportMode.SingleFilePageByPage
			compositeLink.PrintingSystemBase.ExportToXlsx(stream, options)
			Response.Clear()
			Response.Buffer = False
			Response.AppendHeader("Content-Type", "application/xlsx")
			Response.AppendHeader("Content-Transfer-Encoding", "binary")
			Response.AppendHeader("Content-Disposition", "attachment; filename=test.xlsx")
			Response.BinaryWrite(stream.ToArray())
			Response.End()
		End Using
		ps.Dispose()
	End Sub
End Class