печать рисунка

[kuzmich]

добрый день! у меня возникла такая проблемка. как мне вывести компонент Image на печеть используя компонент PrintDialog? Зарание спасибо!

[Stilet]

http://www.delphiworld.narod.ru/base/print_timage.html
http://www.delphiworld.narod.ru/base/print_timage2.html

[kuzmich]

ну я посидел часика два и написал так:

var
 aspectratio, outputwidth, outputheight : single;
begin
 if not PrintDialog1.Execute then exit;
 Printer.BeginDoc;
 try
   outputwidth:=Image1.Picture.Width;
   outputheight:=Image1.Picture.Height;
   aspectratio:=outputwidth/outputheight;
   if (outputwidth < printer.PageWidth) and
      (outputheight < printer.PageHeight) then
   begin
    if outputwidth < outputheight then
    begin
     outputheight:=printer.PageHeight;
     outputwidth:=outputheight*aspectratio;
    end
    else
    begin
     outputwidth:=printer.PageWidth;
     outputheight:=outputwidth/aspectratio;
    end
   end;
   if outputwidth > printer.PageWidth then
   begin
    outputwidth:=printer.PageWidth;
    outputheight:=outputwidth/aspectratio;
   end;
   if outputheight > printer.PageHeight then
   begin
     outputheight:=printer.PageHeight;
     outputwidth:=outputheight*aspectratio;
   end;
   Printer.Canvas.StretchDraw(Rect(0,0,Trunc(outputwidth),trunc(outputheight)), Image1.Picture.Graphic);
   finally
   Printer.EndDoc;
  end;

а ваши ссылки мне не помогли!