if FColorPrint then // 彩色打印
lPDevMode^.dmColor := DMCOLOR_COLOR
else
lPDevMode^.dmColor := DMCOLOR_MONOCHROME;
FLock.Acquire;
try
Result := (GetDeviceCaps(GetDC, NUMCOLORS) > 2) and (GetPDevMode^.dmColor = DMCOLOR_COLOR);
finally
FLock.Release;
end;