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;