Manejo de impresora virtual

223 views
Skip to first unread message

Eduardo Armonti

unread,
Jul 16, 2021, 9:39:18 AM7/16/21
to publice...@googlegroups.com

Holacumpas le voy a hacer un pedido…

 

Estoy necesitando imprimir en PDF los informes de mi colegio para mandarles a los padres de los alumnos por whatsappweb y ahí es donde se me complica.

 

Mi sistema logra hacer el informe perfectamente y lo tira según la opción a …

  • IMPRESORA     todo Ok      

        à   archivo.JPG      logro asignarle un nombre programáticamente como destino     

                                          pero cuando excede a (1) pagina ya no sirve pues solo saca una.

  • Archivo.PRG     logro imprimir en impresora virtual pero NO SE asignarle el destino

                                   (nombre y carpeta) de forma programática a esa impresora.

 

Las impresoras que dispongo son:   “PDFCreator”  o  “Microsoft Print to PDF”

¿ alguien que conozca las ordenes u funciones para manejar estas impresoras sin siquiera abrirlas?

Lo único que quiero es pasarle la carpeta y el nombre del archivo para identificar al alumno y lanzar la impresión.

 

Desde ya gracias.

 

Enviado desde Correo para Windows 10

 


Libre de virus. www.avast.com

Zarlu

unread,
Jul 16, 2021, 10:20:26 AM7/16/21
to Comunidad de Visual Foxpro en Español
Buenos días earmonti!

Disculpa si desvío tu petición.

Si lo que requieres es convertir a PDF te sugiero usar foxypreview
Con un código similar a éste:
mNomPDF=LEFT(ALLTRIM(Inputbox("Nombre del archivo a crear:","Exportar a PDF", "" )),10)
IF EMPTY(mNomPDF)
    RETURN
EndIf   
mNomPDF=mNomPDF+".pdf"
If File(mNomPDF) .and.MESSAGEB("Sobreescribir archivo?",4+32+256,"Confirme.")=7
        Return
EndIf
DO LOCFILE("FoxyPreviewer.App")
REPORT FORM informe1;
OBJECT TYPE 10 ; &&' OBJTYPE 10 = PDF , 11 = PDF AS IMAGE , 12 = RTF , 13 = XLS , 14 = HTML
TO FILE &mNomPDF
DO FOXYPREVIEWER.APP WITH "Release"
*open pdf
DECLARE INTEGER ShellExecute IN shell32.dll ;
    INTEGER hndWin, ;
    STRING cAction, ;
    STRING cFileName, ;
    STRING cParams, ; 
    STRING cDir, ;
    INTEGER nShowWin
       
    cFileName = mNomPDF
    cAction = "open"
    =ShellExecute(0,cAction,cFileName,"","",1)
CLEAR DLLS


Requieres colocar FoxyPreviewer.app en el directorio de tu aplicación.

Suerte
zarlu
Chetumal, Quintana Roo, México

HernanCano

unread,
Jul 16, 2021, 11:19:59 AM7/16/21
to Comunidad de Visual Foxpro en Español
Estoy de acuerdo con Zarlu en usar FoxyPreviewer, pero no tanto por desviar, sino porque es más fácil generar PDFs con Foxypreviewer.

local M.mNomFRX, M.mNomPDF
M.mNomFRX = 'Informe1.FRX'
M.mNomPDF = 'Informe1.PDF'

DO LOCFILE("FoxyPreviewer.App")
REPORT FORM (M.mNomFRX) OBJECT TYPE 20 TO FILE (M.mNomPDF)
DO FOXYPREVIEWER.APP WITH "Release"

Me parece que ésto (los comandos con FoxyPreviewer) es más fácil que instalar PDFCreator (lo conozco, me gusta, pero hay que instalarlo) y aún no sabemos cómo poner el nombre de archivo "automáticamente" (en las versiones nuevas).

Con respecto a MS to PDF tampoco no sabemos aún cómo poner el nombre de archivo "automáticamente".

Eduardo Armonti

unread,
Jul 16, 2021, 12:22:55 PM7/16/21
to publice...@googlegroups.com

Quería dejar a foxypreview para el último por la gran cantidad de errores que veo en los mails.

Gracias por su ayuda.

 

Estoy experimentando con otro código que he conseguido.

 

IF (me funciona ese codigo) THEN

    = Paso el código al grupo para que aprobechen ()

ELSE

    = Vaya…!!  la opción será FOXYPREVIEW

ENDIF

 

Enviado desde Correo para Windows 10

 

--
Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/c65eff66-1a0c-4d5b-a455-a1a02dba769en%40googlegroups.com.

 

HernanCano

unread,
Jul 16, 2021, 12:35:31 PM7/16/21
to Comunidad de Visual Foxpro en Español
¿Errores en los mails?

¿Significa que vas a dejar de usar FoxyPreviewer por que "se reportan errores en FoxyPreviewer cuando se usa para enviar emails"?

Admito que reedité la característica de enviar emails que tiene FoxyPreviewer, pero no estamos hablando de enviar emails: estamos hablando de generar PDFs (y para los que son pesimistas, ya se compartió la DLL para que FoxyPreviewer genere PDFs en VFPA-x64).


Eduardo Armonti

unread,
Jul 16, 2021, 3:06:23 PM7/16/21
to publice...@googlegroups.com

Está bien, no te cabrees… Hernan , ya lo pruebo y te digo.

 

Aclaración: La referencia a los mails era por aquellos enviados al grupo que decían tener problemas con la clase.   Y no porque la clase fallara en enviar mails.   Se entiende.

 

Quise probar antes otra alternativa que había encontrado, porque deseaba hacerla funcionar y brindársela  al grupo, ya que siempre pido ayuda y no aporto demasiado.   Como devolución y agradecimiento.

 

Enviado desde Correo para Windows 10

 

De: HernanCano
Enviado: viernes, 16 de julio de 2021 1:35 p. m.
Para: Comunidad de Visual Foxpro en Español

--

Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

HernanCano

unread,
Jul 16, 2021, 3:22:59 PM7/16/21
to Comunidad de Visual Foxpro en Español
En general todos los piden generar PDFs se les dice que usen FoxyPreviewer y sacan escusas de que no funciona en VFPA-x64 (VFP Advanced 64 bits), lo cual es lógico si no se usa una DLL de 64 bits (que ya fue compartida).

Esperemos....

James Suárez

unread,
Jul 16, 2021, 3:33:28 PM7/16/21
to publice...@googlegroups.com
Bueno una opción es no imprimir, y usar FoxyPreviewer para generar el PDF y bueno de resto ya es cuestión del código VFP. 
Otra opción es crear una "Impresora virtual" propia, específica para esto. Si deseas me escribes y te cotizo. Ya he hecho impresoras virtuales antes. 
Saludos. 

El vie, 16 jul 2021 a las 14:23, HernanCano (<jherna...@gmail.com>) escribió:
En general todos los piden generar PDFs se les dice que usen FoxyPreviewer y sacan escusas de que no funciona en VFPA-x64 (VFP Advanced 64 bits), lo cual es lógico si no se usa una DLL de 64 bits (que ya fue compartida).

Esperemos....

--
Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Eduardo Armonti

unread,
Jul 16, 2021, 3:44:55 PM7/16/21
to publice...@googlegroups.com

Lo que pasa en mi caso es que yo si tengo w10 y puedo llegar a trabajar con esa clase.

Pero tengo que llevar ese programa a mi escuela que tiene Window XP y ni miras de que hagan cambios pues no tienen un mango partido al medio ni para w10 ni para cambiar PC que lo tire.

Disculpe si ofendí.

 

 

Enviado desde Correo para Windows 10

 

De: HernanCano
Enviado: viernes, 16 de julio de 2021 4:23 p. m.
Para: Comunidad de Visual Foxpro en Español
Asunto: Re: [vfp] Re: Manejo de impresora virtual

 

En general todos los piden generar PDFs se les dice que usen FoxyPreviewer y sacan escusas de que no funciona en VFPA-x64 (VFP Advanced 64 bits), lo cual es lógico si no se usa una DLL de 64 bits (que ya fue compartida).

 

Esperemos....

--

Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Edwin Duran

unread,
Jul 16, 2021, 3:52:05 PM7/16/21
to Comunidad de Visual Foxpro en Español
En mi caso estoy haciendo una pequeña aplicación con VFPA64bit, utilice  FoxyPreviwer que compilo German y hasta ahora va bien.

HernanCano

unread,
Jul 16, 2021, 4:09:23 PM7/16/21
to Comunidad de Visual Foxpro en Español
Pues... ojalá aclararas lo que dice.
Por lo que dices, parece que quieres decir que hay un "programa" que tú consideras que no funciona en WinXP.... pero no aclaras cuál.

Indiscutiblemente que si un programa no funciona en WinXP, pues no lo lleves. 
Pero bueno, estamos hablando de VFP y de FoxyPreviewer. Así que "no problem".

Eduardo Armonti

unread,
Jul 16, 2021, 4:38:07 PM7/16/21
to publice...@googlegroups.com

Aclaro lo que dije:  Las dll de 64 bits no creo que funcionen en w XP (y aclaro no tener la seguridad  de ello por eso lo de “creo”) por eso lo había dejado como ultima opción.  Repito NO quise ofender.

 

 

 

Enviado desde Correo para Windows 10

 

De: HernanCano
Enviado: viernes, 16 de julio de 2021 5:09 p. m.
Para: Comunidad de Visual Foxpro en Español
Asunto: Re: [vfp] Re: Manejo de impresora virtual

 

Pues... ojalá aclararas lo que dice.

--

Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Zarlu

unread,
Jul 16, 2021, 4:54:04 PM7/16/21
to Comunidad de Visual Foxpro en Español
Que tal colega Eduardo!

Puedes usar el foxypreviewer sólo para los PDF.

En éste link, de la comunidad, mencionan haber podido usar foxypreview sin problemas en Windows XP
Ya que tienes una máquina de tal característica a ver si puedes hacer pruebas y comentas. A alguien podría serle de utilidad.

zarlu
Chetumal, Quintana Roo, México

Jairo Cedeño

unread,
Jul 16, 2021, 4:59:26 PM7/16/21
to Comunidad de Visual Foxpro en Español
PDF.png
Eduardo, usa este código para tu necesidad
Yo lo he venido usando desde hace ya varios años, sin problemas, sin complicaciones
Message has been deleted
Message has been deleted

Jairo Cedeño

unread,
Jul 16, 2021, 5:27:12 PM7/16/21
to Comunidad de Visual Foxpro en Español
También puedes usar el app que te adjunto, es algo mucho más fácil, es más limitado, pero para generar PDF es lo más facil en usar.

Modo de uso:
Parámetros a usar:
cnameFRX As Character, cnamePDF As Character, chkCopy As Logical, chkPrint As Logical, lPreview As Logical, cPassword As Character

Ejemplo:
Do reportpdf.App With lcReporteFrx, lcFilePdf, .F.,.T.,.T.,[]

Creo que con eso es más que suficiente, para todo lo demás la carpintería claro que va!...

Archivos necesarios: [son dos]



Saludos cordiales

Eduardo Armonti

unread,
Jul 16, 2021, 5:32:51 PM7/16/21
to publice...@googlegroups.com

Lo implemento y te comento.  Gracias por el dato.  Siempre tengo ganas de ser yo quien ayude pero me quedo corto de conocimiento.  No tengo alma de Guru.  Ja Ja

 

Enviado desde Correo para Windows 10

 

De: Jairo Cedeño
Enviado: viernes, 16 de julio de 2021 5:59 p. m.
Para: Comunidad de Visual Foxpro en Español
Asunto: Re: [vfp] Re: Manejo de impresora virtual

 

Eduardo Armonti

unread,
Jul 17, 2021, 1:33:36 PM7/17/21
to publice...@googlegroups.com

Antes que nada… gracias a los que de una u otra manera respondieron a mi pedido.

Les digo como resolvi el problema de imprimir en PDF.

 

En el config de PDFCreator definí en nombre del archivo de salida

Le indique que no abra el archivo luego de crearlo. 

Y el siguiente código:

 

En el botón imprimir

SET PRINTER TO NAME “PDFCreator”

REPORT FORM “mireporte.frx” TO printer noconsole

 

En el botón renombrar

RENAME “archivocreado.pdf” TO “nuevoarchivo.pdf”

 

Sigue en mi el probar las diferentes y “mejores” opciones que me han brindado, solo que me urgía tener las libretas de los alumnos antes del fin de vacaciones para entregar el primer dia de clases.

A todos …G R A C I A S.

 

Enviado desde Correo para Windows 10

 

De: Jairo Cedeño
Enviado: viernes, 16 de julio de 2021 6:27 p. m.
Para: Comunidad de Visual Foxpro en Español

--

Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Reply all
Reply to author
Forward
0 new messages