X
xt2002xt
Unregistered / Unconfirmed
GUEST, unregistred user!
assignprn(prntext);
//将PRNTEST分配给打印机
rewrite(prntext);
//调用REWRITE函数,为输出打开已分配的文件
printer.canvas.font:=(sender as Trichedit).font;
//把当前MEMO1的字体指定给打印对象的CANVAS的字体属性
for lines:=0 to (sender as Trichedit).lines.count-1do
writeln(prntext,(sender as Trichedit).lines[lines]);
//把MEMO的内容写到打印机对象
system.close(prntext);
//关闭打印文件
//将PRNTEST分配给打印机
rewrite(prntext);
//调用REWRITE函数,为输出打开已分配的文件
printer.canvas.font:=(sender as Trichedit).font;
//把当前MEMO1的字体指定给打印对象的CANVAS的字体属性
for lines:=0 to (sender as Trichedit).lines.count-1do
writeln(prntext,(sender as Trichedit).lines[lines]);
//把MEMO的内容写到打印机对象
system.close(prntext);
//关闭打印文件