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;
 

相关阅读 >>

Delphi form工程创建

Delphi 字符串左右添加字符

Delphi2007-Delphi2010 程序不出现在任务栏的方法

Delphi获取系统默认的useragent的方法

Delphi xe 控件字体加粗变色居中等

Delphi cxgrid 通过字段名取得列

Delphi 图像二值化

Delphi修改资源文件的代码

Delphi 如何在程序中动态设置墙纸（使用iactivedesktop接口）

Delphi中获取打印机设备名和端口名

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

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