exportar active report a html

[maitetxu]

Hola a todos!

Me gustaría exportar un active report al formato html.
Hasta ahora lo tengo hecho para poder exportarlo a pdf
y funciona os paso el código para ver cómo lo
tengo montado.



Dim stream As New System.IO.MemoryStream
Dim export As New DataDynamics.ActiveReports.Export.Pdf.PdfExport

export.Export(miReport.Document, stream)

stream.Position = 0

Response.ContentType = "application/pdf"
Response.AddHeader("content-disposistion", "inline; filename=MyExport.pdf")

Response.BinaryWrite(stream.ToArray())

stream.Close()
stream.Dispose()
export.Dispose()
GC.ReRegisterForFinalize(stream)
GC.ReRegisterForFinalize(export)
GC.ReRegisterForFinalize(miReport)
GC.Collect()

Response.End()

nota: miReport es de tipo DataDynamics.ActiveReports.ActiveReport3 donde se guarda
todo lo que tiene el informe.

Esto funciona pero lo que me interesa es volcarlo a una página html.

Espero que me podáis ayudar, es urgente!!!

Muchas gracias!

[neo101]

Pues mira, básicamente estuve investigando y, suponiendo que tu código tenga una exportacion asi... sería:

Código:

'código que recupera el nombre del archivo a salvar...

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim dialog1 As New SaveFileDialog
        dialog1.Filter = "htm files (*.htm)|"
        'OPCIONES DE DIALOGO BÁSICAS

        If dialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            ExportaHTML(dialog1.FileName & ".htm", False, True)
        End If
End Sub

'función que exporta...

    Private Sub ExportaHTML(ByVal file As String, ByVal _
      seperatePages As Boolean, ByVal pageNavigator As Boolean)

'Los parámetros son opciones de la exportacion...

        Dim report As New Tureporte

        Dim htmlOpts As HTMLFormatOptions = ExportOptions.CreateHTMLFormatOptions()
        Dim diskOpts As DiskFileDestinationOptions = ExportOptions.CreateDiskFileDestinationOptions()
        Dim exportOpts As New ExportOptions()

        htmlOpts.HTMLFileName = file
        htmlOpts.HTMLEnableSeparatedPages = seperatePages
        htmlOpts.HTMLHasPageNavigator = pageNavigator
        exportOpts.ExportFormatOptions = htmlOpts

        diskOpts.DiskFileName = file
        exportOpts.ExportDestinationOptions = diskOpts

        exportOpts.ExportDestinationType = _
           ExportDestinationType.DiskFile
        exportOpts.ExportFormatType = _
           ExportFormatType.HTML40

        Tureporte.Load()

        Tureporte.Export(exportOpts)
    End Sub

De manera muy generica esta la funcion (y lo hago a proposito) para que veas que tanto puedes o no hacer con la misma, la saqué de la MSDN y el link de las opciones de htmlOpts es:

http[dos puntos]//msdn[punto]microsoft[punto]com/es-es/library/ms226407(VS.80).aspx

Estamos considerando en este ejemplo que no necesitas mostrar el archivo, solo imprimir...

Saludos!

[maitetxu]

Gracias pero este código no me sirve. Creo que es para
Crystal reports y yo utilizo la librería DataDynamics.ActiveReport y
ese código no me lo reconoce.

Me podriáis ayudar con alguna otra opción? lo que quiero es que
se visualice el archivo .html.

Muchas gracias!

[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!!