用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