如何用语句让打印机换页? (50分)

  • 主题发起人 主题发起人 cunbh
  • 开始时间 开始时间
C

cunbh

Unregistered / Unconfirmed
GUEST, unregistred user!
比如命令 EJECT 什么的.
 
使用QuickRpt
Quickrpt1.NewPage

完全换纸:
procedure EjectPage;
var
F:TextFile;
begin

AssignFile(F, 'LPT1');

Rewrite(F);

Writeln(F,chr(12);

CloseFile(F);
end;

 
see the Help
 
后退
顶部