RSS订阅 | 匿名投稿
您的位置:网站首页 > 打印 > 正文

delphi 缩放图形打印输出

作者:admin 来源:未知 日期:2010/4/26 22:54:26 人气: 标签:打印

procedure TForm1.Button2Click(Sender: TObject);
var
Rect:Trect;
BMP:Tbitmap;
begin
Printer.BeginDoc;
Rect.Left:=10;
Rect.Top:=10;
Rect.Right:=410;
Rect.Bottom:=410;
Printer.Canvas.StretchDraw(Rect,BMP); //注意这一句,使用的是StretchDraw 而不是Draw项
Printer.EndDoc;
end;

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址: