Probablemente sea tarde, pero con XFRX consultaron, hay una alternativa free y obviamente paga.
http://www.eqeus.com/frx2wrd.php La característica es que convierte tus reportes a los formatos que especifica. Saludos Mauro El 6 de febrero de 2013 09:05, Fabricio Bridera (GUFA) <[email protected]>escribió: > Este es un procedimiento que me armé en base a una solución publicada en > su momento. Usa PDFCreator y funciona en VFP6, por lo que supongo que 7 no > tendrá problemas.**** > > ** ** > > El parámetro PConfig es el nombre de una tabla donde los campos tienen la > información que hace falta para ejecutar el reporte**** > > PConfig.Reporte = Nombre del Reporte**** > > PConfig.RutaPlan= Carpeta de Salida para el archivo**** > > PConfig.Archivo = Nombre del archivo a generar**** > > PConfig.Tabla = Nombre de la tabla que usa el reporte**** > > ** ** > > Espero sirva.**** > > ** ** > > ** ** > > procedure CnvRpPdf**** > > parameters PConfig**** > > ** ** > > if parameters() < 1**** > > return .F.**** > > endif**** > > ** ** > > if parameters() >= 1 and type ('PConfig') = 'C'**** > > if file (PConfig)**** > > use &PConfig shared in 0 alias PConfig**** > > select PConfig**** > > else**** > > =messagebox ('No se encuentran los > parámetros para generar el archivo pdf', 16+0+256, 'Generar pdf')**** > > return .F.**** > > endif**** > > endif**** > > ** ** > > PReporte= alltrim (PConfig.Reporte)**** > > PDir = alltrim (PConfig.RutaPlan)**** > > PArchivo= alltrim (PConfig.Archivo)**** > > PTabla = alltrim (PConfig.Tabla)**** > > use in PConfig**** > > ** ** > > if file (PTabla) and not used ('PTabla')**** > > use &PTabla shared in 0 again alias PTabla**** > > select PTabla**** > > else**** > > =messagebox ('No se encuentran los datos para generar el > archivo pdf', 16+0+256, 'Generar pdf')**** > > return .F.**** > > endif**** > > ** ** > > declare Sleep in WIN32API integer**** > > ** ** > > local loPDFCreator**** > > loPDFCreator = createobject ('PDFCreator.clsPDFCreator')**** > > ** ** > > with loPDFCreator**** > > .cStart('/NoProcessingAtStartup')**** > > .cVisible = .F.**** > > .cPrinterStop = .T.**** > > .cOption('UpdateInterval')= 0 && nunca **** > > ** ** > > *!* Opciones de autoguardado**** > > .cOption('UseAutosave') = 1**** > > .cOption('UseAutosaveDirectory')= 1**** > > .cOption('AutosaveDirectory') = '&PDir'**** > > .cOption('AutosaveFilename') = PArchivo**** > > .cOption('AutosaveFormat') = 0 && 0 para formato PDF**** > > ** ** > > * Modificacion temporal de lo impresora por defecto :**** > > DefaultPrinter = .cDefaultprinter**** > > .cDefaultprinter= 'PDFCreator'**** > > .cClearcache**** > > endwith**** > > ** ** > > lcImpresoraPDF = 'PDFCreator'**** > > set printer to name (lcImpresoraPDF)**** > > report form (PReporte) to printer noconsole**** > > loPDFCreator.cPrinterStop = .F. **** > > Sleep (2000)**** > > ** ** > > loPDFCreator.cDefaultprinter = DefaultPrinter **** > > loPDFCreator.cClearcache **** > > loPDFCreator.cClose **** > > release loPDFCreator **** > > ** ** > > if used ('PTabla')**** > > use in PTabla**** > > endif**** > > ** ** > > return .T.**** > > ** ** > > Saludos**** > > Fabricio A. Bridera**** > > ** ** > > *De:* [email protected] [mailto:[email protected]] *En nombre de *francisco > prieto > *Enviado el:* Miércoles, 06 de Febrero de 2013 8:45 > > *Para:* GUFA List Member > *Asunto:* [GUFA] ARCHIVO PDF**** > > ** ** > > El año pasado habia algo de usar el PDF Creator (que es gratuito) y como > hacerlo...**** > > ** ** > > Ahora no lo encuentro...**** > > ** ** > > Sin embargo en otro foro encontre un código que quizas pueda servirte...** > ** > > ** ** > > > http://www.todoexpertos.com/categorias/tecnologia-e-internet/bases-de-datos/visual-foxpro/respuestas/2150121/como-crear-y-enviar-archivo-pdf-de-forma-automatica > **** > > ** ** > > Lo que si otro forista aclara que hay que elevar el tiempo de espera para > que se realice correctamente... De modo que recomienda utilizarlo como > punto de partida.**** > > ** ** > > Saludos,**** > > ** ** > > Pancho**** > > Cordoba**** > > ** ** > > El 6 de febrero de 2013 08:34, francisco prieto <[email protected]> > escribió:**** > > A mi particularmente que tengo instalado el foxypreview en mi > aplicacion... la generacion del pdf no me funciona correctamente en todas > las pc y todas utilizan XP SP3.**** > > ** ** > > Saludos,**** > > ** ** > > Pancho**** > > Cordoba**** > > ** ** > > El 6 de febrero de 2013 08:25, Walter Paul <[email protected]> > escribió:**** > > Sino también puedes usar el Foxypreviewer con la siguiente sentencia:**** > > **** > > REPORT FORM (tcFRXFile) OBJECT TYPE 10 TO FILE "c:\TestReport.Pdf" **** > > **** > > **** > > *De:* Ing César Luque [mailto:[email protected]] > *Enviado el:* miércoles, 06 de febrero de 2013 00:43**** > > > *Para:* GUFA List Member > *Asunto:* [GUFA] ARCHIVO PDF**** > > **** > > Estimados**** > > **** > > Necesito generar un pdf desde un reporte visual fox 7.0, pasándole yo el** > ** > > nombre del archivo que quiero que tenga el pdf. No necesito abrirlo al > pdf, solo**** > > crearlo.**** > > **** > > Alguien tiene algo funcionando en forma similar?**** > > **** > > Si no hay que instalar una impresora virtual pdf en cada equipo cliente > mejor, si no**** > > lo que tengan.**** > > **** > > Saludos.- > > Cèsar Luque **** > > **** > > ** ** > > ** ** >
