Delphi程序实现打印功能

更新时间:2023-05-09 08:25:29 阅读: 评论:0

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;

本文发布于:2023-05-09 08:25:29,感谢您对本站的认可!

本文链接:https://www.wtabcd.cn/fanwen/fan/90/101781.html

版权声明:本站内容均来自互联网,仅供演示用,请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系,我们将在24小时内删除。

标签:打印   文件   打印机
相关文章
留言与评论(共有 0 条评论)
   
验证码:
Copyright ©2019-2022 Comsenz Inc.Powered by © 专利检索| 网站地图