PrivateSub btnExport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim rpt AsNew SectionReport1
Dim h AsNew GrapeCity.ActiveReports.Export.Html.Section.HtmlExport
h.MultiPage = True
rpt.Run()
Me.Viewer1.Document = rpt.Document
h.Export(rpt.Document, Application.StartupPath & "\h.html")
End Sub