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

2
4623

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

2 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.

Dejar respuesta

Please enter your comment!
Please enter your name here