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.
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
Como hacer lo mismo, pero en C#, ¿podrías ayudarme?
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.
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
Este artículo fue escrito en el 2005, es probable que en las nuevas versiones de Crystal todo cambiara y ahora sea mas sencillo.
Exacto en windows 10 no funciona, porque?
Habría que revisar la version del Crystal y la compatibilidad con el sistema operativo. Hace mucho que ya no programo en Crystal. Cuál error te da el sistema?