Delphi程序实现打印功能
预备内容：
一、新建一个窗体（Form1）
二、在窗体上加memo1、Button1、Printdialog1这三个组件（都自带了的）。
思路过程：
一、在程序代码页，最上边部分，有个粗体字Urs，你在它下面加一个printers（这个不是粗体的）。
二、双击button按钮，咱要在这里写代码了。
三、先定义一个line变量，类型是integer，用来控制打印的行数。再定义一个files为，告诉程序这个东西是要它打印的文件。
四、将文件变量（files）通过assignprn函数来提交到打印机。//可以这么理解：咱拿了个文件，命令打印机说：“呆会儿你把这个文件给我打印出来。”
五、通过rewrite函数，打开要输出的文件（files）。 //这个就理解为：打印机很无奈的拿了文件过去，翻
看着。
六、设置文件(files)在打印机上的字体。
七、通过writeln函数，打印文(files)件的每行内容
八、打印完了后，关闭要打印的文件。
简化过程（其实就是思路）：
一、在Urs下写个printers
二、定义两个变量。
三、通过assignprn函数把文件传到打印机上。
四、通过rewrite函数，让打印机打开文件。
五、设置字体。
六、打印每行内容
七、关闭文件。
具体代码：
{在Urs下面加个printers}
var
line:integer; //定义一个line变量，用于下面控制打印各行内容
; //告诉系统说files是文本文件，是要打印机打印的文件
begin
ute then //当printdialog1执行后
begin
assignprn(files); //通过assignprn函数将要打印的文件交给打印机
rewrite(files); //让打印机打开文件准备打印
printer.canvas.font.size:=12; //canvas是打印机的画板，用来打印文件的，直接设置字体
for line:=0 to unt-1 do //以下是循环memo1的每个行
begin
writeln(files,memo1.lines[line]); //打印每行内容 writeln(文件名，文本的某个行);
end;
system.clo(files); //打印完了就关闭要打印的文件
end;
end;
end;
