我觉得可以将_n_  与Put  _page_合用。虽然我没有试过，希望楼主成功后分享下代码。谢谢~

soc=ccccc的时候，页数不需要加1吗？如果是输错了，可以试试这个：

proc sort data=test;
by soc pt;
run;

data wanted;
set test;
by soc pt;
if first.soc then line=0;
line+1;
if soc ne lag(soc) then page+1;
run;

不是输错了！我并不是想把每个soc分给一个page，而是希望每个page能够容纳完整的soc，因为当soc=ccccc的时候，还能挤得进上一张page，所以就不需要另起一页来输出了！

/*create page for report        */
%macro page (var1=,var2=);
proc sql;
        create table f as select count(*) as n,&var1,&var2 from final group by &var1,&var2;
quit;

data f1;
        set f;
        by  &var1;
        if first.&var1 then sum=n;else sum+n;
        p=ceil(sum/18);p1=lag(p);
        if first.&var1 | p>p1 then page+1;
        drop sum n p p1;
run;

data final3;
        merge f1 final;
        by   &var1 &var2 ;
run;

%mend page;
本人写的一个二变量分页的MACRO，你可以改成单变量的

data z_final_4;
        set z_final_3;
        by grou;
        if _n_=1 then pageb=1;
        if first.grou then lin+gn;
        if lin > 24 then do;pageb+1;lin=gn;end;
run;

gn是soc内的行数，grou是soc的排序数，lin是行数，pageb是页数！