Печатаем картинку из TImage.

Приветствую всех! Сегодня я покажу, как напечатать изображение TImage в Delphi.
Итак, для того, чтобы получить доступ к принтеру необходимо подключить библиотеку Printers.

uses 
  Printers;

Теперь можно и написать саму функцию вызова печати:

procedure TForm1.Button1Click(Sender: TObject); 
var 
  ScaleX, ScaleY: Integer; 
  RR: TRect; 
begin 
  with Printer do 
  begin 
    BeginDoc; 
    try 
      ScaleX := GetDeviceCaps(Handle, logPixelsX) div PixelsPerInch; 
      ScaleY := GetDeviceCaps(Handle, logPixelsY) div PixelsPerInch; 
      RR := Rect(0, 0, Image1.picture.Width * scaleX, Image1.Picture.Height * ScaleY); 
      Canvas.StretchDraw(RR, Image1.Picture.Graphic); 
    finally 
      EndDoc; 
    end; 
  end; 
end;

По нажатию на кнопку, картинка, хранящаяся в Image1, будет передана в печать. Надеюсь всем понятно, что перед вызовом функции необходимо создать Image1 и загрузить в него изображение:)

Удачи!