FoxPro/Visual FoxPro - PDF Directo desde VFP

Un saludo a todos, Cuanto el usuario quiere un reporte en PDF utilizo la utileria PDF Creator y funciona sin problema sin embargo, al hacer la conversión pide Informacion para documentar el archivo y luego el nombre del archivo para guardarlo (NOMBRE.PDF). Tengo la necesidad de crear el archivo sin que pase por la Documentacion y sin que pida el nombre de Archivo, es decir, de crearlo desde mi sistema (En Visual Fox Ver 9.0) con nombres asignados desde mi sistema, es posible? como puedo hacerlo?

De antemano muchas gracias.

Saludos

checa esta pagina:
http://www.eqeus.com/files/XFRXDevGuide.htm#_Toc168823870

He buscado mucho cómo hacer eso que pides y la mejor opción (para mi) es la que encontré en el siguiente link:

http://www.todoexpertos.com/categorias/tecnologia-e-internet/bases-de-datos/visual-foxpro/respuestas/2150121/como-crear-y-enviar-archivo-pdf-de-forma-automatica

Solo que cuando hace:

DO WHILE (ReadyState = 0) AND (c < 10)
c = c + 1
Sleep (500)
ENDDO

yo le hago esperar un poco más porque si no, no se hace automáticamente sino que me sale la ventana para guardar. Sí, tarda un poco, pero funciona. Las demás opciones que he probado o no las he podido hacer funcionar o llevaban publicidad.

Tienes que descargarte PDFCreator, que es gratuito.

La opción que te pone "abolom" está bien pero el pdf se crea con publicidad de XFRX al final del documento pdf.

Un saludo.

Que tal Josito, estoy tratando de utilizar el codigo del link que dejaste, con mandar el mail desde vfp no tengo problema, pero no se bien desde donde tengo que mandar llamar el prg que contiene el codigo que convierte el informe a PDF, tambien veo que los parametros de entrada son nombrereporte, nombre archivo pdf, ubicación del pdf pero mi duda es si nombrereporte debe de ser el nombre del frx o como?

gracias

Me podrias ayudar, ya implemente este código pero siempre me elige otra impresora que no es PDFCreator, me elije un hp laser

Buen día quiza ya sea algo tarde para responderlo, pero a alguien mas le puede servir:

doy una ruta a dnde voy a generar el archivo .pdf
vruta="c:\rrrrrrrr\reportes\"
coloco el nombre como se va a llamar el archivo pdf
vardx="Programación en Linea "+dtoc(fechaini)+" al "+dtoc(fecfafin)
combino las dos variables
rutap=ALLTRIM(vruta)+ALLTRIM(vardx)+".pdf"
corro la app
dO "C:\rrrrrrrr\FoxyPreviewer.App"
_Screen.oFoxyPreviewer.lRepeatInPage = .T.
elecuto el reporte para ser generado en pdf
REPORT FORM "programacion planta" TO FILE ALLTRIM(rutap) OBJECT TYPE 10
DO FOXYPREVIEWER.APP WITH "Release"
ya está.

excelente funciona muy bien. pero cuales son los Object Type para word, Bmaps y otros. Adicionalmente como hago para enviar directamente el archivo rutap por email? es decir a partir del resultado desea enviarlo por correo electrónico dado el email. directamente sin tener que llamar outlook, tal que, no se "estacione"en el proceso.

funciona

gracias

Estimado Andres Rueda:

Use tu código para convertir un reporte de vfoxpro 9 en PDF, en mi PC correo Fenomenal,
Pero cuando lo instalad en un servidor y lo ejecutan desde una estacion la factura sale sin la imagen del Logo de la empresa, cosa que no pasa cuando lo ejectuo en mi PC.

Que puede ser....este es mi codigo:

SELECT xbolet52
IF SUBSTR(xdocu, 1, 1)="F"
SET ENGINEBEHAVIOR 90

REPORT FORM rptFactura_ELECTRONIA_NEGOTRAL NOCONSOLE PREVIEW
REPORT FORM rptFactura_ELECTRONIA_NEGOTRAL TO PRINTER PROMPT NOCONSOLE




DO FOXYPREVIEWER.APP
_Screen.oFoxyPreviewer.lRepeatInPage = .T.
&&Ejecuto el reporte para ser generado en pdf

REPORT FORM "rptFactura_ELECTRONIA_NEGOT2.frx" TO FILE ALLTRIM(XARCHIVO_PDF_A_CREAR) OBJECT TYPE 10
DO FOXYPREVIEWER.APP WITH "Release"

SET ENGINEBEHAVIOR 70

ELSE
SET ENGINEBEHAVIOR 90

REPORT FORM rptBoleta_ELECTRONIA_NEGOTRAL NOCONSOLE PREVIEW
REPORT FORM rptBoleta_ELECTRONIA_NEGOTRAL TO PRINTER PROMPT NOCONSOLE


DO FOXYPREVIEWER.APP
_Screen.oFoxyPreviewer.lRepeatInPage = .T.
&&Ejecuto el reporte para ser generado en pdf

REPORT FORM "rptBoleta_ELECTRONIA_NEGOTRAL.frx" TO FILE ALLTRIM(XARCHIVO_PDF_A_CREAR) OBJECT TYPE 10
DO FOXYPREVIEWER.APP WITH "Release"
SET ENGINEBEHAVIOR 70
ENDIF
thisform.cmdsalir.enabled = .T.
thisform.deshabilitatexto()
SELECT xbolet52
USE
SELECT venta1


Mi cel 966-806634, cualquier ayuda o comentario es de valor para mi.

gracias

Yo le paso el formato a un método que se encarga de seleccionar el Object Type para el FoxyPreviewer:


Luego llamo al Foxy con:



Espero te sirva.