Foros Club Delphi - Calcular DOTS

Mira a ver si este ejemplo adaptándolo te sirve:

Código:





function GetPixelsPerInchX: Integer; 

begin 

  Result := GetDeviceCaps(Printer.Handle, LOGPIXELSX) 

end; 



function GetPixelsPerInchY: Integer; 

begin 

  Result := GetDeviceCaps(Printer.Handle, LOGPIXELSY) 

end; 





procedure TForm1.Button1Click(Sender: TObject); 

begin

  label1.Caption := 'La resolución de la Impresora es:'+Format('x: %d y: %d DPI (puntos por pulgada)',

                   [GetPixelsPerInchX, GetPixelsPerInchY]); 

end;

Una pulgada = 2,54 cm.

Un Saludo.