A função descrita aqui permite verificar se a impressora default do Windows suporta impressão em cores.

function SupportsColors: boolean; var   Dev, Drv, Prt: array[0..255] of Char;   DM1: PDeviceMode;   DM2: PDeviceMode;   Sz: Integer;   DevM: THandle; begin   Printer.PrinterIndex := -1;   Printer.GetPrinter(Dev, Drv, Prt, DevM);   DevM := GetCurrentPrinterHandle;   DM1 := nil;   DM2 := nil;   Sz  := DocumentProperties(0, 0, Dev, DM1^, DM2^, 0);   GetMem(DM1, Sz);   try     DocumentProperties(0, 0, Dev, DM1^, DM2^, DM_OUT_BUFFER);     Result := DM1^.dmFields and DM_Color <> 0;   finally     FreeMem(DM1);   end; end;

Quebra-Linha

Colaborador..: Rubem Nascimento da Rocha
Categoria(s).: Delphi; Programação;
Versão.......: 1.0
Data.........: 19/07/2011 22:06:46
Visualizado..: 1322 vezes
Fonte........: http://www.swissdelphicenter.ch/en/showcode.php?id=797