Saludos, con esto me trabaja bien..casualmente estoy en ese trabajo en este momento..saludos...gracias...
IF lEditor
oFr:DesignReport() // LLAMO AL DISEÑADOR
ELSE // SIN DISEÑADOR
// DIRECTO A PDF - ALBEIRO
oFr:SetProperty("PDFExport", "DefaultPath", cPathPdf) // DIRECTORIO DONDE GUARDAR ARCHIVO
oFr:SetProperty("PDFExport", "FileName", cFilePdf) // NOMBRE DEL ARCHIVO
oFr:SetProperty("PDFExport", "ShowDialog", .f.) // MOSTRAR DIALOGO PARA IMPRIMIR
oFr:SetProperty("PDFExport", "OpenAfterExport", .t.) // ABRIR DESPUES DE CREAR...
oFr:SetProperty("PDFExport", "EmbeddedFonts", .t.) // FUENTES ENCRUSTRADAS
oFr:SetProperty("PDFExport", "PrintOptimized", .t.)
oFr:SetProperty("PDFExport", "Outline", .t.)
oFr:SetProperty("PDFExport", "Compressed", .f.) // COMPRIMIR TEXTO - JLY
***
oFr:PrepareReport() // PREPARAR EL REPORTE
oFr:DoExport("PDFExport") // EJECUTA LA EXPORTACION
ENDIF
ENDIF
oFr:DestroyFR() // DESTRUYO EL DISEÑADOR
Dios no está muerto...
Gracias a mi Dios ante todo!