Pabel Paez

A mi me funciono con CR8.5 y VB6 Private Sub Command1_Click() Dim appl As New CRAXDRT.Application Dim rep As CRAXDRT.Report Set rep = appl.OpenReport(Ruta & "\Reporte.rpt", 1) rep.ExportOptions.DiskFileName =Ruta & "\pdf_report.pdf"...