RE:Exportar desde Crystal
hola yo programe un boton para exportar a formatos ya sea pdf, word o excel que al momento de exportar me sale el dialogo de donde quiero guardar y que nombre le pongo espero que te sirva
aqui te indico como mas o menos va
SALUDOS
Danny
Private nombreReporte As String = "ListaAuditorias" `nombre del reporte al exportar
Dim Rel As New Lista ' llamo al rpt
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
.' elcodogo para que se cargue le reporte
'Introducir aquí el código de usuario para inicializar la página
Dim Conexion As SqlConnection
Dim DACanal As SqlDataAdapter
Dim DSDatos As New DataSet
Dim Con As New Conexiones
Dim ds1 As New DataSet1
Conexion = Con.ConectarBDD("Auditor", Session("Clave"))
' cargando el adapter con la instruccion sql
DACanal = New SqlDataAdapter("select * from tabla", Conexion)
' cargando el dataset
DSDatos = New DataSet1
DACanal.Fill(DSDatos, "misdatos")
'Asocia el conjunto de datos con el reporte
For Each dr As DataRow In DSDatos.Tables("misdatos").Rows
ds1.VListaAuditorias.ImportRow(dr)
Next
Rel.SetDataSource(ds1)
CrystalReportViewer1.ReportSource = Rel
end sub
Private Sub btnpdf_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles btnpdf.Click
Dim outStream As New System.IO.MemoryStream
outStream = Rel.ExportToStream(ExportFormatType.PortableDocFormat)
Response.Clear()
Response.Buffer = True
'Le indicamos el tipo de documento que vamos a exportar
Response.ContentType = "applicatio/msword"
'Automaticamente se descarga el archivo
Response.AddHeader("Content-Disposition", "attachment;filename=" + Me.nombreReporte + ".pdf")
'Se escribe el archivo
Response.BinaryWrite(outStream.ToArray())
Response.End()
' 'Catch err As Exception
' ' MessageBox.Show(err.ToString())
' 'End Try
End Sub