Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Печать с масштабированием

01.01.2007
procedure TForm1.Button1Click(Sender: TObject);
// © Song
Var ScaleX, ScaleY: Integer;
Begin
 
Printer.BeginDoc;
 
With Printer Do
 
try
   
ScaleX:=GetDeviceCaps(Handle,LogPixelsX) div PixelsPerInch;
   
ScaleY:=GetDeviceCaps(Handle,LogPixelsY) div PixelsPerInch;
   
Canvas.StretchDraw(Rect(0,0,Image1.Picture.Width*ScaleX,Image1.Picture.Height*ScaleY),Image1.Picture.Graphic);
 
finally
   
EndDoc;
 
end;
End;

Автор: Song

Взято из https://forum.sources.ru