[marcoszorrilla]

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

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.