一种最简单的打印数据的方法（窗体打印）

{**********************************************************}
{一种最简单的打印数据的方法（窗体打印）
{本程序在delphi 7.0+ win98se下测试通过
{
{printer对象包含在printers 单元中，在users部分添加printers单元
{
{**********************************************************}
{声明： }
{ }
{Delphi 岛制作 }
{网址：www.DelphiDao.com }
{中国最专业的 Delphi 学习站点 }
{未经许可，不得以任何方式复制或抄袭四处传播 }
{版权所有，侵权必究 }

printer对象包含在printers 单元中，在users部分添加printers单元

有时我们要打印任意排列的表或往已经印好的登记表上对号入座写上数据时，
可以用窗体打印的方法实现。
新建一个工程，添加窗体Form1,再建个按钮Button1;
再创建一个新窗体Form2,把Form2的BorderStyle设为bsNone、AutoScroll设为True，
将窗体form2添加到form1中
为button1编写代码如下
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Width :=500;
Form2.Height :=600;
Form2.Print;
end;
　接下来你在Form2上对应的位置写上数据，运行后按Button1就会按你的要求一五一十的打印下来了。
这也是一种最简单的打印数据的方法。