>Does that driver support more than 200 colors?
>>I will post it, but I am not sure if it works well. As I said in original question for some LaserJet printers this function returns TRUE :o( (for HP LJ driver that comes with WindowsXP)


No, Colors = 2, bit the function DeviceCapabilities(lcPrinterName, lcPort, DC_TRUETYPE, 0, 0) returns DCTT_BITMAP, After I readed som posts I change the main IF to

IF BETWEEN(GetDeviceCaps(lnDC ,NUMCOLORS),0, 16) .AND.;
   DeviceCapabilities(lcPrinterName, lcPort, DC_TRUETYPE, 0x00, 0x00) == DCTT_BITMAP
...

because I learn that GetDeviceCaps(lnDC ,NUMCOLORS) returns -1 if the Device support more that 200 colors.