Hmm, I wonder if I'm doing something wrong - I'm still getting black and white! I tested on Win XP SP2. lusecolor is definitely .t. and I even cleared out the settings in that report with:
Update "c:\program files\dotcomsolution\avfpdemo2\reports\listcust.frx" set Tag = "", tag2 = "" where ObjType = 1 and ObjCode = 53

>Hi Claude,
>
>Here you would have the good one (I hope)
>
>1) Download adobe generic printer driver installer from:
>ftp://ftp.adobe.com/pub/adobe/printerdrivers/win/1.x
>Just choose the right language (winsteng.exe for English)
>
>2) Download adobe.zip from:
>ftp://ftp.adobe.com/pub/adobe/printerdrivers/win/all/ppdfiles/
>
>3) Unzip ADIST5.PPD
>
>4) Now you can RUN winsteng.exe and choose PPD from the unzip directory and then rename installed printer driver to Generic Color PostScript
>
>
>Just tested and works very well in Win 2003 Server Enterprise.
>
>BTW You may want to modify Print2PDF.prg too
>
>

>.
>.
>.
>	lUseColor		= .t.		&&Use "color" printer driver?
>.
>.
>.
>		**Make sure Ghostscript DLLs can be found
>		if !this.lError
>			=this.GSFind()
>			*!* 16/02/2005 Arto Toikka
>			*!* GhostScript writes to the C:\GS\...\BIN\ direcory if
>			*!* write directory is not defined in This.cOutputFile
>			*!* But FindExecutable and AdeleteFile() needs a path.
>			*!* So it is added here.
>			If AT("\",This.cOutputFile)=0
>			  This.cOutputFile = Alltr(this.cGSFolder) + Alltr(This.cOutputFile)
>			Endif
>			
>			wait clear			
>		else
>			if !llRptError
>				=messagebox(this.cError,48,"PDF Creation Error")
>				llRptError = .t.
>			endif
>		endif
>
>.
>.
>.
>		*!* 16/02/2005 Arto Toikka
>		*!* Modified to respect TEMP/TMP Environment variables
>		if empty(this.cTempPath)
>			this.cTempPath = GetEnv("Temp")
>			If Empty(this.cTempPath)
>			    this.cTempPath = GetEnv("Tmp")
>    		    If Empty(this.cTempPath)
>    			    this.cTempPath = sys(2023)
>    		    Endif
>    		Endif
>		endif
>                * or Addbs()
>		this.cTempPath = Alltr(this.cTempPath) + ;
>		  iif(right(Alltr(this.cTempPath),1)="\","","\")
>.
>.
>.
>

>
>Does this help you?
>
>AT