Billedprint (konstant størrelse)

hello!
Jeg har brug for hjælp til nedenstående kode, det der mangler er at bredden og højden skal være konstanter der resulterer i at det udprintede billede vil være 12cm højt og 12cm bredt.

var
  ScaleX, ScaleY: Integer;
  R: TRect;
begin
  Printer.BeginDoc;
  with Printer do
  try
    ScaleX := GetDeviceCaps(Handle, logPixelsX) div PixelsPerInch;
    ScaleY := GetDeviceCaps(Handle, logPixelsY) div PixelsPerInch;
    R := Rect(0, 0, 400 * ScaleX, 400 * ScaleY);
    Canvas.StretchDraw(R, CDimage.Picture.Graphic);
  finally
    EndDoc;
  end;
end;

Det er værdierne 400 der skal sættets til noget der variabelt passer ligegyldigt printer opløsning og billed opløsning.

på forhånd tak
safl