Hi Doru,

Just to let you know that it worked! The code contains some UDFs, but here's the jist:

if ! f_open('OFF',MIS_PRG+'\TSK\TSK_TYPE.FRX alias REPORT')
return
endif
cTempRpt=TmpFile()
copy to &cTempRpt..FRX
use &cTempRpt..FRX alias REPORT
locate for UNIQUEID='_HUESHP001'
if ! eof()
scatter memvar memo
select TSK_TYPE
go top
scan
m.UNIQUEID='_HUESHP'+StrZero(recn(),3,0)
m.FILLRED =GetRGB(TSK_TYPE.TSK_HUE,'R',.F.)
m.FILLGREEN=GetRGB(TSK_TYPE.TSK_HUE,'G',.F.)
m.FILLBLUE =GetRGB(TSK_TYPE.TSK_HUE,'B',.F.)
m.SUPEXPR ='TSK_TYPE.TSK_HUE='+allt(str(TSK_TYPE.TSK_HUE))
select REPORT
append blank
gather memvar memo
select TSK_TYPE
endscan
use in REPORT
select TSK_TYPE
go top
do ViewPrint with cTempRpt
else
use in REPORT
endif
delete file &cTempRpt..FRX
delete file &cTempRpt..FRT

Thanks again for the suggestion!


>>>Hi Ashley,
>>>It looks like a tedious thing, but overlapping objects could be feasible, I think... I'm thinking about programatically adding records to the .frx for each object that has a distinct RGB and have the color condition in the "print when" field (supexpr in .frx).