用scan扫描语句,也是等待退出程序后才能开始打印
与这个有无关系?
SET DEVICE TO PRINTER
CLEAR CLEAR ALL SET CONSOLE OFF SET PRINTER ON USE QUEQ ?REPLICATE("=",40) ? "发生日期","证券代码","主办券商" SCAN FOR RECNO()<=10 ? 发生日期,证券代码,space(2)+主办券商 ENDSCAN USE SELECT 主办券商,CNT(*) 数量 FROM QUEQ GROUP BY 1 INTO CURSOR TEMP ? ?REPLICATE("=",40) NSUM=0 SCAN ?主办券商, 数量 NSUM=NSUM+数量 ENDSCAN ?PADC("合计",8,"="),STR(NSUM,10) USE IN TEMP SET PRINTER TO SET CONSOLE ON