Algo rarisimo con el preview

Post Reply
Jorge Jaurena
Posts: 145
Joined: Fri Oct 21, 2005 6:35 pm

Algo rarisimo con el preview

Post by Jorge Jaurena »

Hola a todos.
Esto es algo que me llama mucho la atencion.

Tengo escrito este reporte (algo muy basico):

REPORT oReport TITLE Titulo CENTER;
HEADER Empresa;
FOOTER "Fecha:"+DTOC(Date())+" Hora:"+Time()+" Pagina:"+STR(oReport:nPage,3) RIGHT;
FONT oFont0,oFont1,oFont2,oFont3;
PREVIEW;
CAPTION "Vista previa del listado"

COLUMN TITLE "Codigo" DATA "" SIZE 6 CENTER SHADOW
COLUMN TITLE "Razon social" DATA "" SIZE 40 CENTER SHADOW
COLUMN TITLE "Saldo" DATA "" SIZE 12 CENTER SHADOW

ACTIVATE REPORT oReport ON STARTLINE PintoLinea(oReport)

La funcion que esta en STARTLINE es esta:

Function PintoLinea(oReport)
IF MOD(oReport:nRow,2)=0
oReport:lShadow:=.f.
ELSE
oReport:lShadow:=.t.
ENDIF
Return nil

Simplemente pretendo que me haga un shadow linea de por medio en cada numero de linea impar.
Lo raro es que en mi maquina funciona bastante bien con reportes cortos, pero en cualquier otra maquina me hace el shadow en todas las lineas, a pesar que tuve la precaucion de copiar ademas del exe la prev32.dll
Si esto funcionara bien seria muy util, ya que para seguir una linea en el preview es bastante confuso.

Desde ya muchas gracias.
Jorge Jaurena
Post Reply