Fondo negro al imprimir con @ say

[Josepe]

VFP8 bajo Windows Vista

Estoy mandando a imprimir con @ say.

SET DEVICE TO PRINTER PROMPT
xp1='@Z( 9,999,999.99'
...
@r,c4 say total pict xp1

donde r es un contador de lineas y total es un valor numero
La impresion sale pero es un rectangulo de fondo oscuro y el valor es
color negro
En impresor laser monocromatico y enviado a CutePdf igual se ve oscuro
con negro.
Yo necesito que no salga el fondo negro. Siento que el problema es la
mascara xp1
Si le pongo set device to file salida.txt se ve correctamente.

Los valores que son alfanumericos y no llevan esa mascara salen
correctamente.
¿Qué otra márcara me recomiendan?

[panchimancuso]

HOLA AMIGO PRUEBA DE PONER ESTO

@r,c4 say total pict xp1 STYLE "BT"

eso quiere decir en negrita y transparente.

[claudio luna]

Hola Josepe,
Hace un tiempo en MSN vi el tema y hay varias formas de resolverlo.
Si tenes el formulario con un color que no es el blanco pasa lo que
vos decís, te sale con un fondo.
Podés hacer algo como esto :
ThisForm.LockScreen = .T.
cOldbackcolor = ThisForm.BackColor
cOldForecolor = ThisForm.ForeColor
ThisForm.BackColor = RGB(255,255,255)
ThisForm.ForeColor = RGB(0,0,0)
Luego los set correspondientes y @say y al final del listado devolves
los valores como al principio

ThisForm.BackColor = cOldbackcolor
ThisForm.ForeColor = cOldForecolor
ThisForm.LockScreen = .F.
Saludos
Claudio Luna

[Josepe]

Gracias, voy a probar. Yo se que con repor form no hay problema, pero
es muy complejo traducirlo este viejo codigo a FRX, asi que en @say
solo ese problema me quedaba.

Muchas gracias.

[Josepe]

Perfecto, se arregló con style "BT" aunque sale negrita no importa,
sale el dato.
He buscado sobre el tema style y francamente no hay en forma directa,
pero por casualidad viendo la ayuda del comando browse, alli estaba
todo lo relativo a style.
Voy a probar tambien en "NT"

Muchas gracias.