Печать изображений

← →
MiXenWorK (2003-02-17 16:57) [0]

Имеется рисунок на TImage. Хочется распечатать его. Как это правильно сделать?
Пробую следующее:
With Printer do
Begin
BeginDoc;
Canvas.Font:=Form1.font;
Canvas.Draw((PageWidth-Image1.Picture.Bitmap.Width) div 2,
(PageHeight-Image1.Picture.Bitmap.Height) div 2,
Image1.Picture.Bitmap);
EndDoc;
end;

Выдает пустой лист? Что делать?
Спасибо

← →
Юров Владимир © (2003-02-17 17:02) [1]

Может попробовать в отчет запихать?

← →
BOA_KAA © (2003-02-17 17:05) [2]

> MiXenWorK (17.02.03 16:57)
> Имеется рисунок на TImage

StrechDraw, а для больших рисунков лучше через DIB

← →
MiXenWorK (2003-02-17 17:38) [3]

А что подается в качестве первого аргумента в StretchDraw?
Даю прямоугольник с углами 0, 0, Image1.Width, Image1.Height - то же самое.
Что есть DIB?

См. исходники TForm.Print (или как то так). Там более менее приемлемая печать.

Печать изображений Найти похожие ветки