Principales respuestas
EXPORTAr DATOS DE UN DGV A UN PDF!! AYUDA!

Pregunta
-
Respuestas
-
- Marcado como respuesta Enrique M. MontejoModerator miércoles, 30 de septiembre de 2015 7:08
-
Saludos:
Lo que yo hago es crear un reporte con Crystal Reports y despues crear el PDF desde el reporte.
Despues de creado el reporte, puedes usar esta funcion:
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
Espero ayude.
JOSE LUIS
Dios NO los llamo LAS DIEZ RECOMENDACIONES
- Marcado como respuesta Enrique M. MontejoModerator miércoles, 30 de septiembre de 2015 7:08
Todas las respuestas
-
- Marcado como respuesta Enrique M. MontejoModerator miércoles, 30 de septiembre de 2015 7:08
-
Saludos:
Lo que yo hago es crear un reporte con Crystal Reports y despues crear el PDF desde el reporte.
Despues de creado el reporte, puedes usar esta funcion:
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
Espero ayude.
JOSE LUIS
Dios NO los llamo LAS DIEZ RECOMENDACIONES
- Marcado como respuesta Enrique M. MontejoModerator miércoles, 30 de septiembre de 2015 7:08