Solved: Re: Allignment issue when using Proc report with different font

fbl204653 · Posted 05-09-2017 05:11 PM

Hi SAS experts,

The following program works perfect when "style(column)={asis=on font=('Courier New',8pt) background=white};" is specified in the macro. But after the font is changed to Arial, like, ' "style(column)={asis=on font=('Arial',9pt) background=white};". It can't be alligned any more. Please help! Thank you in advance.

%macro Lpagenum(filein, fileout);
data _numpage;
    retain numpages 0;
    infile "&filein" length = vlg;
    input @1 line $varying134. vlg;
    if _n_ =1 then call symput("Ltitle1",line);
    if index(upcase(line), upcase("Page X of X")) > 0 then numpages + 1;
    call symput("numofpages",compress(put(numpages,5.)));
run;

data _odsprn;
    retain num 1 pageno 0 lineno 0;
    length line $134.;
    infile "&filein" length = vlg end = fin;
    n=_n_;
    input @1 line $varying134. vlg;

    if upcase(substr(line, 1, length(line))) = upcase(substr("&Ltitle1", 1)) then put _page_;
    point = index(upcase(line),upcase("Page X of X"));

    if point > 0 then do;
      if &numofpages > 0 then do;
        line = trim(substr(line, 1, point + 4)) ||" "|| compress(put(compress(num), 8.))||" of &numofpages";
         linelen=length(trim(line));
         line=trim(line)||repeat(" ",134-linelen-38)||"Data Last Modified: &moddate.";
          end;
      else line = substr(line, 1, point - 1);
      num + 1;
    end;

    if 5>index(line,trim("&Ltitle1"))>0 then do;
       pageno+1;
       lineno=0;
       line="&Ltitle1";
    end;

    lineno+1;
run;

proc sort data=_odsprn;
    by pageno n;
run;

ods rtf file="&fileout" style=hpeg headery=720 footery=720;
options orientation=landscape;

ods listing close;
proc report data=_odsprn nowd ls=134 ps=49
              style(report)={asis=on just=center cellpadding=0 frame=void rules=none}
/*              style(column)={asis=on font=('Courier New',8pt) background=white};*/
              style(column)={asis=on font=('Arial',9pt) background=white};
    column pageno line;
        define pageno / noprint group;
        define line   /" " width=134;
        break after pageno / page;
run;
ods rtf close;
ods listing;
%mend Lpagenum;

proc printto new file="&OUTDIR.\TABLES_TEMP.rtf";
run;
proc report data =sashelp.cars nowd center headline headskip split='*'    ps=52 ls=134;
column model DriveTrain origin type Horsepower Weight length;
define model/left width=40;
define DriveTrain/left width=10;
define origin/left width=10;
define type/left width=10;
define horsepower/left width=10;
define weight/left width=10;
define length/left width=10;

compute before _page_;
       line @1 "sponsor" @109 "Page X of X";
       line @1 "protocol" ;
       line " ";
       line @50 "ttl1";
       line @50 "ttl2";
       line @50 "ttl3";
       line @1 134*"_";
       line " ";
   endcomp;

run;
quit;
proc printto; run;

%Lpagenum(&OUTDIR.\tables_temp.rtf, &OUTDIR.\test&OUTNAME.);