REPO FORM XSD TO PRINT PROMT
REPO FORM XSD TO PRINT PROMT 这个报表的打印命令能不能把选择纸张的功能也集成在命令里
CREATE CURSOR tt (f1 I, f2 I) FOR i=1 TO 10 INSERT INTO tt VALUES (i,2*i) ENDFOR CREATE CURSOR xsd (xsd I, ps I) INSERT INTO xsd VALUES (3, 8) INSERT INTO xsd VALUES (4, 9) INSERT INTO xsd VALUES (5, 11) SELECT xsd SCAN XSD = "XSD" + TRANSFORM(xsd) psXSD = "PAPERSIZE="+ TRANSFORM(ps) USE 报表1.frx IN 0 ALIAS bb SELECT bb GO TOP cPS = STREXTRACT(expr,"PAPERSIZE=",0h0D0A) IF !EMPTY(cPS) REPLACE expr WITH STRTRAN(expr, "PAPERSIZE="+cPS, psXSD) USE SELECT tt REPORT FORM 报表1.frx PREVIEW ENDIF ENDSCAN