Buenos días, espero me puedan dar una mano con lo siguiente,
Tengo un proyecto armado que utiliza reportes de Crystal 8.0 enlazados a SQL (a cada .rpt se le pasaban los parameterfields necesarios) que deben salir a PDF.
Actualmente para eso, convierte los reportes en un formato tipo word (RTF) y despues los imprime por medio de una impresora virtual (PDF Creator) que los exporta a PDF.
Ahora lo que quiero hacer es realizar el pasaje a PDF directamente y por medio del crystal. Tengo entendido que la versión 8.5 se puede hacer, de hecho lo hice pero con un reporte de prueba y sin datos. Pero no consigo hacer la conexión al SQL y pasarle los parámetros.
Este es el código que se usa para abrir los reportes en crystal 8.0
CrystalReport1.Connect = "DSN=.........."
CrystalReport1.ParameterFields(1) = "parametro 1"
CrystalReport1.ParameterFields(2) = "parametro 2"
CrystalReport1.ParameterFields(3) = "parametro 3"
CrystalReport1.ParameterFields(4) = "parametro 4"
CrystalReport1.PrintFileType = crptRTF 'acá se pasa a WORD (crptRTF)
CrystalReport1.PrintFileName = "nombre del archivo.rtf"
CrystalReport1.Action = 1
y este el código que utilizao para abrir el reporte que usé de ejemplo en crystal 8.5 y que me sale en PDF
Dim appl As New CRAXDRT.Application
Dim rep As New CRAXDRT.Report
Set rep = appl.OpenReport("d:prueba.rpt", 1)
rep.ExportOptions.DiskFileName = "d:prueba.pdf"
rep.ExportOptions.DestinationType = crEDTDiskFile
rep.ExportOptions.FormatType = crEFTPortableDocFormat
rep.Export False
la pregunta sería, como le paso la conexión al crystal 8.5? (los parametros vi que se pasan igual que la versión anterior).
Saludos!!
