Вывод графических изображений

В приведенном ниже примере показано, как вывести на прин­тер графическое изображение формы, определенное через Image. Это может быть растровое изображение (bitmap), метафайл или иконка. Необходимо присвоить свойству TFormlAutoRedraw зна­чение True — в этом случае графическое изображение формы бу­дет преобразовано в растровое.

Procedure TForm1.PrintButtonClick(Sender: TObject);

Begin

with Printer do

begin

BeginDoc; {Начнем вывод информации }

Canvas.Draw(0, 0, Image); {с левого верхнего угла }

EndDoc; {Начнем печать}

end;

End;