第2个回答 2015-11-11
uses printers
var
lines:integer;
prntext:system.text;
begin
if printdialog1.execute then
try
assignprn(prntext); //将PRNTEST分配给打印机
rewrite(prntext); //调用REWRITE函数,为输出打开已分配的文件
printer.canvas.font:=memo1.font;
//把当前MEMO1的字体指定给打印对象的CANVAS的字体属性
for lines:=0 to memo1.lines.count-1 do
begin
writeln(prntext,memo1.lines[lines]);
end;
//把MEMO的内容写到打印机对象
system.close(prntext); //关闭打印文件
except
abort;
end;
end;