exportar active report a html

[neo101]

Mmm... pues, la verdad no se usar esas librerias, pero buscando en los foros de satadynamics encontré este código..

Código vb.net:

Public Function GetHTMLReport(ByVal ReportPath As String) As String
 
Dim sTemp As String
Dim clsStream As System.IO.Stream
 
'NOTE: this implemented class is vital to this process - look for
documentation about implementing
'the DataDynamics.ActiveReports.Export.Html.IOutputHtml object...
Dim clsOutput As New MyProject.HtmlOutput()
 
Dim clsReport As New DataDynamics.ActiveReports.ActiveReport()
Dim clsExport As New
DataDynamics.ActiveReports.Export.Html.HtmlExport()
 
Try
 
'load report - here's where you could alternately configure a
data source or other parameters...
clsReport.LoadLayout(ReportPath)
 
'run report...
clsReport.Run()
 
'export to HTML...
Call clsExport.Export(clsReport.Document, clsOutput, "1-" &
clsReport.Document.Pages.Count.ToString)
 
'get HTML output...
sTemp = clsOutput.OutputString
 
'release objects...
clsExport = Nothing
clsReport = Nothing
clsOutput = Nothing
 
'fix up HTML - not sure what these characters are about, but
it's easy to fix...
sTemp = Replace(sTemp, "o;?", "")
 
'add padding - reports are designed for PDF which adds margins
by default...
sTemp = Replace(sTemp, "body leftmargin=""0"" topmargin=""0""",
"body leftmargin=""25"" topmargin=""25""")
 
'return...
Return sTemp
 
Catch ex As System.Exception
 
Return ex.Message & ": " & ex.StackTrace
 
End Try
 
End Function
 
...you could then call this function from a Web Form like this:
 
Private Sub StreamHTML()
 
Dim sTemp As String
Dim sReportPath As String = "PATH TO RPX FILE"
 
'get report contents...
sTemp = GetHTMLReport(sReportPath)
 
'clear buffer...
Response.Clear()
Response.ClearContent()
Response.ClearHeaders()
 
'set up header for streaming access...
Response.AddHeader("content-disposition", "inline;
filename=report.html")
 
'write to response buffer...
Response.Write(sTemp)
 
'flush and close buffer...
Response.Flush()
Response.Close()
Response.End()
 
End Sub
 

No se realmente cuanto te sirva, pero puedes seguir buscando en aquellos foros, el enlace es:

http[dos puntos]//www[punto]datadynamics[punto]com/forums/29967/ShowPost.aspx

saludos!!