A função a seguir mostra como verificar se a impressora default do Windows é matricial.

function IsDotMatrix: boolean; var   DeviceMode: THandle;   Device, Driver, Port: array[0..79] of Char;   pDevice, pDriver, pPort: PChar; begin   Result  := False;   pDevice := @Device;   pDriver := @Driver;   pPort   := @Port;   Device  := #0;   Driver  := #0;   Port    := #0;   Printer.GetPrinter(pDevice, pDriver, pPort, DeviceMode);   // Impressora pode ser matricial quando o número máximo cores   // é 16 e quando a impressora é capaz de imprimir somente   // fontes True Type   Result :=     ((GetDeviceCaps(Printer.Handle,NUMCOLORS) <= 16) and      (DeviceCapabilities(pDevice, pPort, DC_TRUETYPE, nil, nil) = DCTT_BITMAP)); end;

Quebra-Linha

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