Impresión errónea de reports en blanco y negro desde Visual Foxpro 9

Posted on octubre 30, 2010

0



Con Visual Foxpro 9, me he encontrado un extraño error, que sospecho va relacionado con el driver de impresión de la impresora laser que utilizo normalmente.

Cuando modificas una Report diseñada desde visual foxpro9, la impresión pasa de color, a ser en blanco y negro. Es especialmente molesto cuando se busca generar archivos PDF en los que el color es importante, con logos, fotos, o cuando lo que se desea es imprimir en una impresora de color, para conseguir unos resultados del informe vistosos.

El problema se produce incluso cuando no está marcado el “save environtment” existente en el menú Report/Properties, que suele ser el motivo de que FOX capture y almacene en el archivo FRX las características de la impresora por defecto en la Report.

Para solucionar el problema, hay que eliminar el parámetro COLOR del informe. Pasos para solucionarlo:

use Nombrereport.frx

brow

– Buscar el campo del primer registro llamado EXPR. Abrirlo, es un campo memo.

– Eliminar toda la línea, en la que aparece el parámetro COLOR=1.

-Grabar el archivo (control+w)

-Cerrar el archivo (USE e intro)

Misteriosamente, cuando vuelves a modificar el informe, el parámetro se vuelve a almacenar, por lo que hay que ir con cuidado.

Este programa hace los pasos de forma automática:
warchivos=”*.frx”
warchivos=”report\”+Alltrim(warchivos)
If !Empt(warchivos)
wsum=1
wfin =Adir(wfich,warchivos)
Do While wsum<=wfin
Wait Window Nowa wfich(wsum,1)
Close Data All
Use ("report\"+wfich(wsum,1))
Set Filter To objtype=1 And objcode=53
Go Top
Scan
If At("COLOR=1",Expr) # 0
Replace Expr With Strtran(Expr,"COLOR=1","COLOR=2",1,50,1)
Endif
Endscan
wsum=wsum+1
Enddo
Use && De la report
Endif
Messagebox("Proceso finalizado correctamente",64)

Posted in: Foxpro