Печать растровых изображений

← →
ГС ТОФ © (2003-01-21 13:34) [0]

При выводе на печать изображения в Image на бумаге оно получается в 10 раз меньше, чем размер Image
Использую код:
//Печать
procedure TForm1.Button5Click(Sender: TObject);
begin
Printer.BeginDoc;
Printer.Canvas.Draw(0,0,Image1.Picture.Bitmap);
Printer.EndDoc;
end;
А как можно Image из программы напечатать один к одному?

← →
MBo © (2003-01-21 13:43) [1]

Естественно - разрешение- то разное.
Делай StretchDraw c учетом GetDeviceCaps

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