viernes, agosto 12, 2022
Inicio VB.NET Convierte tu reporte Crystal Reports a PDF y envíalo por correo

Convierte tu reporte Crystal Reports a PDF y envíalo por correo

4

Descargar solución EnvioCorreoWindows_PDF.zip

Muchas veces tenemos que enviarle reportes a todos nuestros clientes de forma masiva y que mejor forma que enviarles un documento PDF sin tener que preocuparmos por los formatos y brindarle seguridad a la información que estamos transmitiendo.

Para poder convertir el reporte a pdf vamos a utilizar esta función llamada ExportToPDF y luego podremos enviar ese documento como un simple archivo adjunto en nuestros correos.

Public Function ExportToPDF(ByVal rpt As ReportDocument, ByVal NombreArchivo As String) As String
Dim vFileName As String
Dim diskOpts As New DiskFileDestinationOptions

Try
With rpt.ExportOptions
.ExportDestinationType = ExportDestinationType.DiskFile
.ExportFormatType = ExportFormatType.PortableDocFormat
End With

vFileName = «c:» & NombreArchivo
If File.Exists(vFileName) Then File.Delete(vFileName)
diskOpts.DiskFileName = vFileName
rpt.ExportOptions.DestinationOptions = diskOpts
rpt.Export()
Catch ex As Exception
Throw ex
End Try

Return vFileName
End Function

Descargar solución EnvioCorreoWindows_PDF.zip

4 Comentarios

    • Hola Adrian, este código fue hecho en el 2005, con versiones muy distintas de Crystal, para hacerlo es un ejemplo totalmente nuevo. Vamos a revisarlo para ver si hacemos un articulo diferente.

  1. Estimado Roy Rojas, estuve probando tu rutina:
    Public Function ExportToPDF(ByVal rpt As ReportDocument, ByVal NombreArchivo As String) As String
    Dim vFileName As String
    Dim diskOpts As New DiskFileDestinationOptions
    Try
    With rpt.ExportOptions
    .ExportDestinationType = ExportDestinationType.DiskFile
    .ExportFormatType = ExportFormatType.PortableDocFormat
    End With

    vFileName = «c:» & NombreArchivo
    If File.Exists(vFileName) Then File.Delete(vFileName)
    diskOpts.DiskFileName = vFileName
    rpt.ExportOptions.DestinationOptions = diskOpts
    rpt.Export()
    Catch ex As Exception
    Throw ex
    End Try

    Return vFileName
    End Function

    pero en mi pc con windows 10 no funciona que esta faltando, aparece un error no encontrado

Dejar respuesta

Please enter your comment!
Please enter your name here