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

0
798

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

Dejar respuesta

Please enter your comment!
Please enter your name here