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 10.4.1的编译器bug终于修正了！

Delphi xe8 支持md5

Delphi 记事本与计算器的调用

Delphi 日期加减

Delphi7判断字符是否是数字

Delphi中提取网页源代码

Delphi函数assignfile使用

Delphi中转向语句break，continue，exit的作用

解决 Delphi 程序在不同操作系统中 shellexecute 调用 chrome.exe 偶尔无效的问题

Delphi 暴力保护进程

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

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