delphi 缩放图形打印输出

本文整理自网络，侵删。

 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;
 

相关阅读 >>

检测系统信息的单元 computerinfo.pas

Delphi点击网页弹出的alert对话框的确定按钮

Delphi pagecontrol不�@示tab方式

Delphi 清除windows 图标缓存源代码

Delphi 实现 图灵机器人api（idhttp post ）

Delphi硬盘序列号修改器源码

Delphi 多种方法查找窗口句柄

Delphi程序带参数运行

Delphi取cpu利用率

Delphi 一个绘制虚线的非常规函数（常规方法，打印机上绘制不出虚线）

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 缩放图形打印输出