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