exportar active report a html

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