***********Report输出*******;
%macro reptfch( txt, txt1,txt2);
options nodate nonumber missing=' ' ;
ods rtf startpage=NEVER;
ods tagsets.rtf file="&txt" style=journal3a path="D:\xdt\jg" ;
ods escapechar='^';
title "Table 1. "&txt1" 方差分析 ";
proc report data=befch nowd ;
column label Source SS1 DF MS1 FValue ProbF;
define label/display "项目" center style(column)={cellwidth=0.8 in} ;
define Source/display "变异来源" center style(column)={cellwidth=1.6 in} ;
define SS1/display "平方和(SS)" center style(column)={cellwidth=1 in} ;
define DF /display "自由度" center style(column)={cellwidth=0.6 in} ;
define MS1/display "均方(MS)" center style(column)={cellwidth=1 in} ;
define FValue/display "F值" center style(column)={cellwidth=0.6 in} ;
define ProbF/display "P值" center style(column)={cellwidth=0.6 in} ;
run;
title "Table 2. "&txt2" 置信区间 ";
proc report data=beci nowd ;
column label zhibiao R T;
define label/display "项目" center style(column)={cellwidth=1 in} ;
define zhibiao/display "指标" center style(column)={cellwidth=1 in} ;
define R/display "R" center style(column)={cellwidth=1.8 in} ;
define T /display "T" center style(column)={cellwidth=1.8 in} ;
run;
%mend;
这是程序;输出的结果是2个表,分别在2个页的最上面;怎样才能输出到一页上面?