Hola amigos del foro mi consulta es la siguiente en el botón de imprimir me funciona bien y al tratar de exportarlo a PDF también me funciona Ok. pero me manda el nombre del formulario, he buscado por todos lados, pero siempre me dice lo mismo que hay que guardarlo en el disco duro y hay que el usuario lo adjunte al correo que uno usa habitualmente, pero lo que quiero es que lo adjunte enseguida pero con otro nombre, este es el código que uso actualmente, para dicho propósito, las decisiones lo hago en javascript por eso hay varios casos, debido a los diversos tipos de presupuestos.
Protected Sub CMDIMPRIMIR_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CMDIMPRIMIR.Click, informe.Init
Dim A As Integer
A = cod_imprimir.Value
A = CInt(A)
Dim rptDocument As ReportDocument = New ReportDocument()
If Grilla.Visible = True And Grilla1.Visible = True Then
If A = "1" Then
'rptDocument.Load("C:\inetpub\wwwroot\Gestion\Pres upuesto.rpt")
rptDocument.Load("C:\Users\Hector.PC-Hector\Documents\Visual Studio 2008\Websites\WebSite3\Presupuesto.rpt")
rptDocument.RecordSelectionFormula = ("{Consulta.Patente_Vehiculo} = '" + TXTPATENTE.Text + "'")
rptDocument.Refresh()
'rptDocument.ExportToHttpResponse(ExportFormatType .PortableDocFormat, Response, False, "")
rptDocument.ExportToHttpResponse(ExportFormatType. PortableDocFormat, Response, False, "Presupsuesto")
End If
If A = "2" Then
rptDocument.Load("C:\Users\Hector.PC-Hector\Documents\Visual Studio 2008\Websites\WebSite3\Presupuesto1.rpt")
'rptDocument.Load("C:\inetpub\wwwroot\Gestion\Pres upuesto1.rpt")
rptDocument.Refresh()
rptDocument.RecordSelectionFormula = ("{Consulta.Patente_Vehiculo} = '" + TXTPATENTE.Text + "'")
rptDocument.ExportToHttpResponse(ExportFormatType. PortableDocFormat, Response, False, "Presupsuesto")
'rptDocument.ExportToHttpResponse(ExportFormatType .PortableDocFormat, Response, False, "")
End If
If A = "3" Then
rptDocument.Load("C:\Users\Hector.PC-Hector\Documents\Visual Studio 2008\Websites\WebSite3\Presupuesto2.rpt")
'rptDocument.Load("C:\inetpub\wwwroot\Gestion\Pres upuesto1.rpt")
rptDocument.Refresh()
rptDocument.RecordSelectionFormula = ("{Consulta.patente_Vehiculo} = '" + TXTPATENTE.Text + "'")
rptDocument.ExportToHttpResponse(ExportFormatType. PortableDocFormat, Response, False, "")
End If
If A = "4" Then
rptDocument.Load("C:\Users\Hector.PC-Hector\Documents\Visual Studio 2008\Websites\WebSite3\Presupuesto3.rpt")
'rptDocument.Load("C:\inetpub\wwwroot\Gestion\Pres upuesto2.rpt")
rptDocument.Refresh()
rptDocument.RecordSelectionFormula = ("{Consulta.Patente_Vehiculo} = '" + TXTPATENTE.Text + "'")
rptDocument.ExportToHttpResponse(ExportFormatType. PortableDocFormat, Response, False, "")
End If
End If
End Sub
por ejemplo lo que hago es pinchar adjuntar al correo y me envía el nombre del formularios, es decir Frmpresupuesto.aspx.pdf, como dije lo hace bien lo envía al destinatario y el a su vez lo abre y lo lee en PDf, pero lo que quiero por último quitar la extensión aspx o que diga el archivo adjunto Presupuesto.PDF, favor de ayudarme es lo último que me falta para terminar dicho sistema, aunque me falta algo pequeño como son las Hyperlinks, pero eso es más adelante, desde ya muchas gracias, es la segunda vez que pido esta ayuda por lo que ven estoy un poco desesperado.

Saludos:

Lo que yo hago es generar el PDF primero, con todas sus caracteristicas (nombre, fecha, etc) y despues lo envio como archivo adjunto al email.

La funtion de exportar es:

Código:

Public Sub Fg_ExportWithFormatOptions(ByVal NmbreArchvo As String, ByVal PgnaIni As Integer, ByVal PgnaFin As Integer, ByVal useRange As Boolean, ByVal DocRpt As Object)
        Dim Rpt_AExportar As New CrystalDecisions.CrystalReports.Engine.ReportDocument()
        Dim exportOpts As ExportOptions = New ExportOptions()
        Dim pdfRtfWordOpts As PdfRtfWordFormatOptions = ExportOptions.CreatePdfRtfWordFormatOptions()
        Dim destinationOpts As DiskFileDestinationOptions = ExportOptions.CreateDiskFileDestinationOptions()

        Try
            Rpt_AExportar = TryCast(DocRpt, CrystalDecisions.CrystalReports.Engine.ReportDocument)
            pdfRtfWordOpts.FirstPageNumber = PgnaIni
            pdfRtfWordOpts.LastPageNumber = PgnaFin
            pdfRtfWordOpts.UsePageRange = useRange
            exportOpts.ExportFormatOptions = pdfRtfWordOpts
            exportOpts.ExportFormatType = ExportFormatType.PortableDocFormat
            destinationOpts.DiskFileName = NmbreArchvo
            exportOpts.ExportDestinationOptions = destinationOpts
            exportOpts.ExportDestinationType = ExportDestinationType.DiskFile

            Rpt_AExportar.Export(exportOpts)

        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub

Y la uso asi:

Código:

Fg_ExportWithFormatOptions("Presupuesto.Pdf", 1, 1, False, myReport) ' Objeto Document de CR

Espero ayude:

JOSE LUIS

Josñé muchas gracias por la ayuda prestada, pero me hace una consulta a que te refieres con todas sus características (nombre, fecha, etc,) me imagino que seran las propiedades del archivo o bien a los campos de los registros, es decir la tabla completa, ya que tengo solamente en esos ejemplos de presupuestos mas de 30 registros por lo bajo, más los datos e la grilla, ojala que me puedas aclarar esa duda y nuevamente muchas gracias.