Voila, j'ai fait un truc :
 
if Printdialog1.execute then
  begin
    with Printer do
    begin
        BeginDoc;
        Canvas.Draw((PageWidth - image.Width) div 2,
                  (PageHeight - image.Height) div 2,
                  image.Picture.Graphic);
 
        EndDoc;
    end;
  end;
 
L'ennui, c'est que ça m'imprime un truc tout petit.    
(dans le genre 1/10).
 
Si vous savez comment faire autrement, j'en ai besoin.
MERCI