Crystal Report - Truco: exportar a pdf

Amigos
por fin encontre como exportar a pdf con CR 8.5 , ahi va el codigo

Dim ExportFileName As String

Dim CRApp As CRAXDRT.Application
Dim CRReport As CRAXDRT.Report

Set CRApp = CreateObject("CrystalRuntime.Application")
Set CRReport = CRApp.OpenReport("...\Socios_Departamento.rpt")

ExportFileName = "C:\Dep.pdf"

CRReport.RecordSelectionFormula = ""
CRReport.ExportOptions.FormatType = crEFTPortableDocFormat
CRReport.ExportOptions.DestinationType = 1
CRReport.ExportOptions.DiskFileName = ExportFileName

'CRReport.ExportOptions.ExcelTabHasColumnHeadings = True

CRReport.DisplayProgressDialog = False
CRReport.ExportOptions.PDFExportAllPages = True

CRReport.Export (True)

CRReport.Save (ExportFileName)

este codigo deberia exportar a pdf sin mostar la ventana de exportacion, sin embargo la muestra y no se porque (debe ser una custion de orden).
si alguien puede resolverlo, le agradeceria me avisen

chauu y suerte

Cambia la linea CRReport.Export (True) a CRReport.Export False

y no necesitas la ultima linea de CRReport.Save

Gracias a los dos voy a probar lo que me dicen

saludos
Alejandro

oigan por favor lamento molestarlos con tanto. PERO me puden decir cuales sonlas referencias para que reconozca estos objetos y propiedades? saludos y muchas gracias

Yo creo que es mas facil que eso, con asignarle que la impresora
es 'Acrobat PDFWriter',mandar imprimir y ya esta.

Pruebalo. Un Saludo.

Porr fINNNNNNNNNN!!!!!!!!!!!!!! este codigo si es, solo tienes que cambiar en la penultima fila (true) por (FAlse) y listo, lo hace automatico, ajajajajaja, que mantequilla, por cierto, la utlima fila no va ya qu te daña el archivo.pdf, supriman esa utlima linea y todo Bien!!!!

Hola a todos,
con este codigo que se debe ajustar para que genere el pdf con contraseña? estoy bregando con esa parte
saludos