Exportar crystal a PDF
Publicado por Ezequiel Namios (1 intervención) el 27/09/2006 15:12:34
Estoy precisando exportar un Crystal 8.0 a PDF mediante visual basic 6.0
tengo 2 opciones para hacerlo, pero tengo 1 problema en cada una, paso a explicar:
opcion 1
Estoy usando una impresora PDF para converitr el reporte de crystal en formato PDF, el problema es que se me abre una ventana donde tengo que indicar el destino donde quiero que se grabe y el nombre del archivo.
yo queria saber si no hay manera de definir eso por codigo y que para el usuario de esa opcion sea transparente y que no se le abra ninguna ventana.
este es el codigo que estoy usando:
rptReporte.Destination = crptToFile
rptReporte.PrinterName = "Adobe PDF"
rptReporte.PrinterPort = "Mis documentos\*.pdf"
rptReporte.PrinterDriver = "Adobe PDF"
rptReporte.Action = 1
Opcion 2
registre las siguientes dll
TSLV.dll
ExportModeller.dll
Uf2pdf.dll
y uso este codigo
Dim Aplication As CRAXDRT.Application
Dim prcdReport As CRAXDRT.Report
Set Aplication = New CRAXDRT.Application
Set prcdReport = Aplication.OpenReport(gsReportesPath & Archivo)
'prcdReport.Database.SetDataSource null
prcdReport.EnableParameterPrompting = False
prcdReport.DiscardSavedData
prcdReport.ExportOptions.DestinationType = crEDTDiskFile
prcdReport.ExportOptions.DiskFileName = gsImportacionPDF
prcdReport.ExportOptions.FormatType = crEFTPortableDocFormat
prcdReport.Export False
Set Aplication = Nothing
Set prcdReport = Nothing
el problema aca es que no me respeta el formato del reporte (es decir la letra en negrita, recuadros, espaciado de caracteres, etc). y necesito que esten exactamente iguales.
Agradeceria que alguien que sepa la forma de solucionar alguno de los2 inconvenientes me lo haga saber.
desde ya muchas gracias.
[email protected]
tengo 2 opciones para hacerlo, pero tengo 1 problema en cada una, paso a explicar:
opcion 1
Estoy usando una impresora PDF para converitr el reporte de crystal en formato PDF, el problema es que se me abre una ventana donde tengo que indicar el destino donde quiero que se grabe y el nombre del archivo.
yo queria saber si no hay manera de definir eso por codigo y que para el usuario de esa opcion sea transparente y que no se le abra ninguna ventana.
este es el codigo que estoy usando:
rptReporte.Destination = crptToFile
rptReporte.PrinterName = "Adobe PDF"
rptReporte.PrinterPort = "Mis documentos\*.pdf"
rptReporte.PrinterDriver = "Adobe PDF"
rptReporte.Action = 1
Opcion 2
registre las siguientes dll
TSLV.dll
ExportModeller.dll
Uf2pdf.dll
y uso este codigo
Dim Aplication As CRAXDRT.Application
Dim prcdReport As CRAXDRT.Report
Set Aplication = New CRAXDRT.Application
Set prcdReport = Aplication.OpenReport(gsReportesPath & Archivo)
'prcdReport.Database.SetDataSource null
prcdReport.EnableParameterPrompting = False
prcdReport.DiscardSavedData
prcdReport.ExportOptions.DestinationType = crEDTDiskFile
prcdReport.ExportOptions.DiskFileName = gsImportacionPDF
prcdReport.ExportOptions.FormatType = crEFTPortableDocFormat
prcdReport.Export False
Set Aplication = Nothing
Set prcdReport = Nothing
el problema aca es que no me respeta el formato del reporte (es decir la letra en negrita, recuadros, espaciado de caracteres, etc). y necesito que esten exactamente iguales.
Agradeceria que alguien que sepa la forma de solucionar alguno de los2 inconvenientes me lo haga saber.
desde ya muchas gracias.
[email protected]
Valora esta pregunta


0