在用的时候将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;