如何直接调用ESC指令集来控制打印机退纸(50分)

如何直接调用ESC指令集来控制打印机退纸，形式如下
//打印机退纸
assignfile(f,'lpt1:');
try
rewrite(f);
writeln(f,chr(27)+chr(106)+chr(255));
writeln(f,chr(27)+chr(106)+chr(220));
rewrite(f);
closefile(f);
except
closefile(f);
screen.Cursor:=crdefault;
application.messagebox('打印机故障,请查询！','提示信息',mb_ok+mb_iconinformation);
exit;
end;

这个代码放在那

帮顶！
╭=========================================╮
80G海量源代码,控件，书籍全免费狂下不停！
http://www.source520.com

╰=========================================╯

没人能解决？