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

Материал из DRKB


procedure TForm1.Button1Click(Sender: TObject);
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;


Author: Song
Source: Взято из http://forum.sources.ru
ID: 03250