如何控制打印一行记录后不走纸

Question

大家好：
    我用printer想实现打印一行记录后不走纸，但总不成功，每次打印，即使只打印一个字也要把整张纸都走完。我想实现的功能是打印完一条记录后只实现回车换行的功能，下次打印时接着打。急等着这个功能，速盼大家能给出详细代码。谢谢！
                                         王振亚
                                       2003.08.16

Answer 1

var
  PrnFileName: TextFile;
begin
  Assignfile(PrnFileName,MoneyPort);lpt1 com1
  Rewrite(PrnFileName);  write(PRNFileName,CHR(27)+'p'+CHR(0)+CHR(60)+CHR(255) );
  CloseFile(PRNFileName);

Answer 2

wwwwww先生，我试着运行了一遍您的程序，编译器提示“undeclared identifier moneyport.”，我不知该怎么办，请继续指教，并且我要打印的是数据库中的一条记录，您能否给出一个打印的实例,不胜感激之至！
                                        王振亚
                               2003.08.19