Ver Mensaje Individual
  #5 (permalink)  
Antiguo 01/12/2006, 21:40
Avatar de jhonwilliams
jhonwilliams
 
Fecha de Ingreso: marzo-2004
Ubicación: Copacabana - Colombia
Mensajes: 1.484
Antigüedad: 20 años, 10 meses
Puntos: 76
Bueno en esta pagina encontraras un ejemplo en VB.NET para exportar los reportes

http://www.buayacorp.com/archivos/ex...rts-en-aspnet/

Pero siento que le falta algo, y en la funcion TipoDocumento(), es por eso que te paso esta de C#

http://www.dotnetcr.com/Libreria.asp...orts-en-ASPNET

Segun el code que me habias enviado te mostrare el porque te dije que me parecio raro eso tan cortico:

Código:
' Crea un stream
Dim rptStream As New System.IO.MemoryStream
' Se exporta el reporte a un stream, 
' luego se hace una conversión para el tipo adecuado
rptStream = CType(rptClientes.ExportToStream(Integer.Parse(ddlTipos.SelectedValue)), _
					System.IO.MemoryStream)
' Limpia el buffer
Response.Clear()
Response.Buffer = True
' Establece el tipo de documento
Response.ContentType = TipoDocumento()
' Fuerza a hacer un download del archivo
Response.AddHeader("Content-Disposition", "attachment;filename=" + Me.nombreXdefecto)
' Escribe el contenido del stream
Response.BinaryWrite(rptStream.ToArray())
Response.End()
Ahora vez la diferencia entre el tuyo y lo que conosco,

Ahora TipoDocumento() es algo como esto:

Código:
'Indicamos el Tipo de archivo que vamos a exportar,
'tambien le indicamos la extension
Private Function FormatoDocumento() As String
  Dim tipo As String
  Select Case Integer.Parse(ddlTipos.SelectedValue)
    Case ExportFormatType.Excel
      tipo = "application/vnd.ms-excel"
      nombreReporte &= ".xls"
    Case ExportFormatType.RichText
      tipo = "application/rtf"
      nombreReporte &= ".rtf"
    Case ExportFormatType.WordForWindows
      tipo = "application/msword"
      nombreReporte &= ".doc"
    Case Else
      tipo = "application/pdf"
    nombreReporte &= ".pdf"
  End Select
  Return tipo
End Function
Para definir que tipo de formato vas a exportar

Saludos
__________________
Si mi respuesta te ha ayudado, agradezco que me regales unos puntos de Karma XD.

"Una mujer sería encantadora si uno pudiera caer en sus brazos sin caer en sus manos." (Ambrose Bierce)