● DelphiTips 003 - 任意打印 - 荔园在线 | 深圳大学学生论坛,荔园晨风BBS,深大在线网站

荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀

发信人: Peter (小飞侠), 信区: Program
标题: DelphiTips 003 - 任意打印
发信站: BBS 荔园晨风站 (Thu Jan 21 21:12:39 1999), 转信

　　有时我们要打印任意排列的表或往已经印好的登记表上对号入座写上数据时，可
以新建一个窗体（假设为Form1），再把Form1的BorderStyle设为bsNone、AutoScroll
设为True，接下来再创建一个新窗体（假设为Form2），再建个按钮Button1，编写代
码：
procedure TForm2.Button1Click(Sender: TObject);
begin
Form1.Width :=900;
Form1.Height :=800;
Form1.Print;
end;
　　接下来你在Form1上对应的位置写上数据，运行后按Button1就会一五一十的打印
下来了。

--
※ 来源:．BBS 荔园晨风站 bbs.szu.edu.cn．[FROM: 192.168.1.3]

荔园在线首页友情链接：深圳大学深大招生荔园晨风BBS S-Term软件网络书店