FoxPro/Visual FoxPro - Ayuda con Foxypreviewer

Saludos a todos
Tengo un problema con Foxypreviewer, en la maquina de desarrollo me funciona bien, pero al poner en una nueva maquina no me funciona, ya lo añadi a mi proyecto, lleve toda la carpeta de foxypreviewer a la nueva maquina, pero como llevo compilado mi proyecto, al hacer
do xFileApp = "C:\sistema\forms\FoxyPreviewer\FoxyPreviewer.App"
me sale el error UNRECOGNIZED COMMAND VERB

ya añadi las librerias, los prg que utiliza pero no funciona
Alguien que me ayude muchas gracias

Sólo es necesario incorporar el FoxyPreviewer.app en el proyecto y en la misma carpeta del ejecutable. Luego, en el programa inicial incluyes el comando DO FoxyPreviewer.app

Yo lo tengo de la siguiente manera.

hago un PRG llamado reportpreview
y lo llamo de la siguinte manera

cTipoRep = 'cxcreporaltasbajas'

*- Imprime Reporte
DO reportpreview.prg WITH cTipoRep

el prg contiene lo siguiente.

No es necesario que llames al FoxyPreviewer cada vez que ejecutes un report. Se carga sólo la primera vez, al entrar en la aplicación, y luego ejecutas el reporte directamente.

Ahora bien, asegúrate que el APP se encuentra en esa carpeta en la nueva máquina. Por eso yo lo pongo en la misma carpeta que el EXE. Así si no quiero que se ejecute, simplemente lo borro; esto me ha ocurrido en algunos equipos que, por algún motivo, la salida de los reportes salía mal con el Foxypreviewer.

Creo una variable pública para guardar la ubicación del Foxypreviewer.

En el programa principal (MainFile), tengo el siguiente código:

** HABILITA LAS FUNCIONALIDADES DEL FOXYPREVIEWER
** SOLO SI LA APLICACION ESTA EN LA CARPETA LOCAL PARA EL DESARROLLO
PUBLIC PUBLI_FoxyPreview
IF FILE(ADDBS(CURDIR()) + 'Foxypreviewer.app')
DO FoxyPreviewer.app
PUBLI_FoxyPreview = ADDBS(CURDIR()) + 'foxypreviewer.app'
ELSE
PUBLI_FoxyPreview = ''
ENDIF

En la llamada al reporte, no es necesario hacer ninguna acción adicional. Si embargo, compruebo que el Foxypreviewer está activo para pasarle algún parámetro, por ejemplo:

IF !EMPTY(PUBLI_FoxyPreview) AND VARTYPE(_Screen.oFoxyPreviewer) == 'O'
WITH _Screen.oFoxyPreviewer
.cLanguage = 'ESPAÑOL'
.lPrinted = .T.

** ........LE PASA LOS VALORES PARA LA MARCA DE AGUA
.cWatermarkImage = PUBLI_Marca_Agua
.nWaterMarkType = PUBLI_Marca_Agua_Tipo && 1 = Colored (default), 2 = B&W
.nWatermarktransparency = PUBLI_Marca_Agua_Trans && (0-1) Transparency, 0 = Transparent, 1 = Opaque
.nWaterMarkWidthRatio = PUBLI_Marca_Agua_Width && (0-1) Proportion that the WM will occupy in page width
.nWaterMarkHeightRatio = PUBLI_Marca_Agua_Height && (0-1) Proportion that the WM will occupy in page height
ENDWITH
ENDIF

REPORT FORM (NombreReport) NOCONSOLE TO PRINTER

Por que sale la previa muy grande y se imprime cortado el reporte?

Buenos días

Esto me ocurría en una máquina donde el cliente tenía personalizado el tamaño de la fuente. Esto hace que la página en presentación por pantalla del FoxyPreviewer muestre como te ocurre; sin embargo, al exportar a PDF o imprimir funciona correctamente.

Esto lo he solucionado registrando la aplicación para el reconocimiento de PPP usando:

DECLARE INTEGER SetProcessDPIAware IN Win32API
SetProcessDPIAware()


Más información en:

https://docs.microsoft.com/en-us/windows/win32/hidpi/setting-the-default-dpi-awareness-for-a-process

Excelente solución, me funcionó muy bien, mil gracias

Atte.

Augusto

Muchisimas gracias me sacaron de tremendo problema

Esta solución no les afecta el tamaño de las letras de la aplicación?
Yo le cambio las propiedades PPP en la solapa Compatibilidad del ejecutable y las letras quedan muy chicas.
Gracias