crear un pdf de un reporte con Vfp 9

885 views
Skip to first unread message

Noe

unread,
Mar 8, 2017, 6:35:41 PM3/8/17
to Comunidad de Visual Foxpro en Español
Hola foro!!!

Deseo crear un pdf y tengo esto

PrintWindows = Set("PRINTER",2)
PrintVirtual = "PDFCreator"
Set Printer To Name (PrintVirtual)
Report Form ("C:\teyg_inc\teyg.frx") To Printer Noconsole
Set Printer To Name (PrintWindows)
Return

pero no lo crea. en que estoy mal ?

HernanCano

unread,
Mar 8, 2017, 10:07:08 PM3/8/17
to Comunidad de Visual Foxpro en Español
Noé:

1. Puede ser que el .FRX no existe en esa ubicación.

2. Puede ser que el .FRX no es accesible en esa ubicación.

3. Puede ser que la impresora PDFCreator no existe.

4. Puede ser que tu Windows tiene algún problema con la cola de impresión.

5. Puede ser que no atendiste bien la clase (o no has leido el tema de clase, que es lo mismo), entonces te falta hacer algo adicional que te indicó el profe.... ¿o será que los puso un trabajo en grupo y entre todos deben buscar info y apoyarse? (se me hace que alguno sabe cuál es el problema en tu escenario y te dirá qué hacer).

Fidel Charny

unread,
Mar 9, 2017, 6:08:38 AM3/9/17
to Comunidad de Visual Foxpro en Español
Hernan
No conozco a Noe, pero fácilmente puedes ver que participa en este foro, por lo menos, desde 2010. Tu suspicacia sobre tema de clase, profe, etc, está fuera de lugar. Estás Nerviosho?

En cuanto al tema,
1) deberíamos saber si PDFCreator responde cuando se envían otros trabajos de impresión (por ejemplo, imprimir una hoja excel ).
2) Deberíamos saber si el reporte se imprime en una impresora normal o se ve la vista previa.
Si todo eso funciona:
3) Si el error sucede en interactivo o cuando lo hace desde el ejecutable, o siempre.

También vale una prueba zonza:


PrintWindows = Set("PRINTER",2)
PrintVirtual = GEtprinter()      && seleccionar la opción PdfCreator. Si no es posible es porque no está instalado o no se creó la impresora PDFCreator.
lcReport = "C:\teyg_inc\teyg.frx"

Set Printer To Name (PrintVirtual)
Report Form (lcReport) To Printer Noconsole
Set Printer To Name (PrintWindows)

También se puede utilizar APRINTERS() para detectar si la impresora está instalada, si es que no se quiere mostrar el cuadro de dialogo de GetPrinter()

Noe

unread,
Mar 9, 2017, 4:57:10 PM3/9/17
to Comunidad de Visual Foxpro en Español
Hola Fidel !!!
Gracias por contestar. con tu codigo lo envia a la impresora que esta por default ejecute el mio y tambien lo envia a la impresora por default

el sistemita genera un documeto del empleado (vacaciones,incapacidaddes etc,etc) cuando se corria sobre VFP 5.0 lo havia sin ningun problema
lo instale en otra oficina de la misma dependencia pero ahora lo compile con VFP 9.0 y con este no hace nada.
como lo puedo solucionar.
GRACIAS

posdata:
ya no tengo VFP 5.0

Fidel Charny

unread,
Mar 9, 2017, 6:22:24 PM3/9/17
to Comunidad de Visual Foxpro en Español
Hola Noe:
Fijate si  tenés activavado Save Printer Environment en propiedades del reporte. Tenés que desactivarlo.
Lo otro que podés hacer, es usar Foxbin2prg. Generás el archivo de texto y luego volvés a generar los binarios. Como prevención (teniendo en cuenta el origen VFP5 y no por otra cosa) guardate una copia de ambos archivos.

Noe

unread,
Mar 11, 2017, 12:11:46 PM3/11/17
to Comunidad de Visual Foxpro en Español
Buenos Dias.

el Save Printer Environmen lo tengo desactivado y aun lo direcciona a la otra impresora. alguna otra idea?

Noe

unread,
Mar 11, 2017, 1:49:07 PM3/11/17
to Comunidad de Visual Foxpro en Español
Helppppppp

creo que es mi laptop!!!
desistale el pdfcreator e instale bullzip y so sigue direccionondo a otra impresora

ME PODRIAN AYUDAR ¨?
 
Gracias

sochandoreno

unread,
Mar 11, 2017, 2:53:24 PM3/11/17
to Comunidad de Visual Foxpro en Español
Saludos,

Te recomiendo utilizar foxypreviewer. No tienes que instalar ninguna impresora virtual

Atte.,
Jaime Vargas de la Torre
Vencom Services

HernanCano

unread,
Mar 11, 2017, 11:06:02 PM3/11/17
to Comunidad de Visual Foxpro en Español
Noé:
Sólo me resta pedirte el .FRX (y su .FRT) para analizarlo.
Me parece que --de momento-- no necesitaría la DBF ni código en .PRG.

¿Puedes?

Noe

unread,
Mar 12, 2017, 4:04:39 PM3/12/17
to Comunidad de Visual Foxpro en Español
Hola Hernan !!!

te los envio 

GRACIASSSSSSSS.
teyg.FRT
teyg.frx

HernanCano

unread,
Mar 12, 2017, 6:21:01 PM3/12/17
to Comunidad de Visual Foxpro en Español
Primero me pidió un archivo de imagen: dos veces.
Luego me pidió tres cursores; pero le contestaste a Fidel que habías desactivado el Environment: tu reporte está direccionado a una impresora HP LaserJet 1022n.


Te recomiendo aplicar la técnica indicada en la sgte URL:

Frx Tips 


Más info en:

How to hack FRX file to strip printer driver information

Hector Colman

unread,
Mar 12, 2017, 9:05:28 PM3/12/17
to Comunidad de Visual Foxpro en Español
Hola yo uso este prg y funciona perfecto

DO REPORTPDF WITH "personal.frx", "C:\sysges_prueba\pdf\personas.pdf", .F., .T., .T., ''
copiar el contenido de es rar a la carpeta del sistema

link

Noe

unread,
Mar 13, 2017, 2:14:56 PM3/13/17
to Comunidad de Visual Foxpro en Español
GRACIAS A TODOS.

Sobre a todo a ti Hernan ya quedo resuelto. Te puedo hace la ultima consulta?
en que parte del reporte estaba redireccionado?
o como te diste cuenta ?

HernanCano

unread,
Mar 14, 2017, 1:06:03 AM3/14/17
to Comunidad de Visual Foxpro en Español
Sólo ejecuté MODI REPO y me dijo que no estaba definido el cursor tal y luego el pascual... (¿cuántas veces?). 

Cuando uno maneja Data Environment, entonces ahí van los "cursores".

¿Por qué le contestaste a Fidel que ya habías desactivado el Environment en tu reporte cuando realmente no lo habías hecho?

Noe

unread,
Mar 14, 2017, 6:27:00 PM3/14/17
to Comunidad de Visual Foxpro en Español

perdon se me olvido comentarlo......

Gracias por todo.
Reply all
Reply to author
Forward
0 new messages