Imprimer au millimètre près

uses printers;

procedure TForm1.Button1Click(Sender: TObject);
begin
printer.BeginDoc;
SetMapMode(printer.Canvas.Handle, MM_LOMETRIC);
with printer.Canvas do
begin
//font hauteur 5 mm
Font.Height := 50;
Font.Name := 'Verdana';
TextOut(250, -110, 'SwissDelphiCenter');
TextOut(250, -180, 'http://www.swissdelphicenter.ch');
MoveTo(250, -240);
//dessine une ligne de 7,5 cm
LineTo(1000, -240);
end;
printer.EndDoc;
end;