El que esta Fumado eres tu!!!!!!, tas loco, la forma mas sencilla y rapida utiliza este codigo: Dim Report As New Recibo_Cobranza
Dim ExportFileName As String
ExportFileName = "C:\recibo.pdf"
Report.RecordSelectionFormula = ""
Report.ExportOptions.FormatType = crEFTPortableDocFormat
Report.ExportOptions.DestinationType = 1
Report.ExportOptions.DiskFileName = ExportFileName
'CRReport.ExportOptions.ExcelTabHasColumnHeadings = True
Report.DisplayProgressDialog = False
Report.ExportOptions.PDFExportAllPages = True
Report.Export (False)