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

Previous  Top  Next

    
 

 

 

Code:

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;

 

 

©Drkb::03250

Автор: Song

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