发信人: redfox (Z掉了几乎所有的版...), 信区: BorlandDev
标  题: Delphi编程 -- 13.2 任意打印
发信站: 哈工大紫丁香 (2000年09月01日17:31:00 星期五), 站内信件

任意打印 

　　有时我们要打印任意排列的表或往已经印好的登记表上对号入座写上数据时，
可以新建一个窗体（假设为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.hit.edu.cn·[FROM: 202.118.227.107]