L like Unregistered / Unconfirmed GUEST, unregistred user! 2002-03-10 #2 使用QuickRpt Quickrpt1.NewPage 完全换纸: procedure EjectPage; var F:TextFile; begin AssignFile(F, 'LPT1'); Rewrite(F); Writeln(F,chr(12); CloseFile(F); end;
使用QuickRpt Quickrpt1.NewPage 完全换纸: procedure EjectPage; var F:TextFile; begin AssignFile(F, 'LPT1'); Rewrite(F); Writeln(F,chr(12); CloseFile(F); end;