达摩祖师圣诞仪轨:delphi7中如何实现文件打印功能

来源:百度文库 编辑:高考问答 时间:2024/05/04 19:48:32
我在数据库编程过程中,有些数据表需要打印,该如何实现?

在用的时候将pinters单元加入use列表
伪代码:
assignfile(filename)
reset(filename)
assignprn(printfile)
rewrite(printfile)
printer.canvas.font := font
try
while eof(filename) do
begin
readln(...)//取一行
writeln(...)//往打印机送一行
end
finally
closefile(filename)
closefile(printfile)
end;