topic Re: Proc Template bottom line before printing footnotes in SAS Programming

Proc Template bottom line before printing footnotes

chrissowden — Tue, 20 Apr 2021 13:21:29 GMT

I am trying to get a bold bottom line above the footnotes sections. Currently the only way I can get the line above the footnotes is in Proc Report with the break after function.

%macro template;
ods path(prepend) work.SPstyles(update);

PROC TEMPLATE;
DEFINE STYLE styles.landscape8;
PARENT=styles.rtf;
REPLACE fonts /
'TitleFont2' = ("Courier New, courier",8pt)
'TitleFont' = ("Courier New, courier",8pt)
'StrongFont' = ("Courier New, courier",8pt)
'EmphasisFont' = ("Courier New, courier",8pt)
'FixedEmphasisFont' = ("Courier New, courier",8pt)
'FixedStrongFont' = ("Courier New, courier",8pt)
'FixedHeadingFont' = ("Courier New, courier",8pt)
'BatchFixedFont' = ("Courier New, courier",8pt)
'FixedFont' = ("Courier New, courier",8pt)
'headingEmphasisFont' = ("Courier New, courier",8pt)
'headingFont' = ("Courier New, courier",8pt)
'docFont' = ("Courier New, courier",8pt);

style table from table / background = _undef_ rules=groups cellspacing=0
cellpadding=0pt bordertopwidth=7 bordertopcolor=white frame=above width=100%;

style systemfooter from systemfooter / protectspecialchars=off;

style parskip / fontsize = 1pt;

REPLACE headersAndFooters FROM CELL / background = _undef_
font=fonts('HeadingFont')
foreground=black
background=white;

REPLACE BODY from DOCUMENT /
bottommargin=.1in
topmargin=1in
rightmargin=1in
leftmargin=1in;

END;
RUN;

PROC TEMPLATE;
DEFINE STYLE styles.patprof;
PARENT=styles.rtf;
REPLACE fonts /
'TitleFont2' = ("Courier New",8pt)
'TitleFont' = ("Courier New",8pt)
'StrongFont' = ("Courier New",8pt,bold)
'EmphasisFont' = ("Courier New",8pt,italic)
'FixedEmphasisFont' = ("Courier New",8pt,italic)
'FixedStrongFont' = ("Courier New",8pt,bold)
'FixedHeadingFont' = ("Courier New",8pt,bold)
'BatchFixedFont' = ("Courier New",8pt)
'FixedFont' = ("Courier New",8pt)
'HeadingEmphasisFont' = ("Courier New",8pt,italic)
'HeadingFont' = ("Courier New",8pt,bold)
'DocFont' = ("Courier New",8pt);

style table from table / background = _undef_ rules=groups cellspacing=0
cellpadding=0pt bordertopwidth=7 bordertopcolor=white frame=above width=100%;

style systemfooter from systemfooter / protectspecialchars=off;

REPLACE headersAndFooters FROM CELL / background = _undef_
font=fonts('HeadingFont')
foreground=black
background=white;

REPLACE BODY from DOCUMENT /
bottommargin=1in
topmargin=1in
rightmargin=1in
leftmargin=1in;
END;
RUN;
%mend template;

Re: Proc Template bottom line before printing footnotes

ballardw — Tue, 20 Apr 2021 14:22:34 GMT

Above what Footnote? You are not showing anything about how that template may be used.

Re: Proc Template bottom line before printing footnotes

Cynthia_sas — Tue, 20 Apr 2021 15:21:32 GMT

Hi:

I don't think you need PROC TEMPLATE to get a line above the footnote. Please review this Tech Support note: https://support.sas.com/kb/46/383.html which shows a way that works to change the borders starting in SAS 9.2 with RTF and PDF.

Here's the original ODS ESCAPECHAR method with ODS RTF (doesn't work for PDF):

Here's the method shown in the Tech Support note:

Screen shots are showing footnote at the bottom of page 1.

Hope this helps,

Cynthia

Re: Proc Template bottom line before printing footnotes

chrissowden — Tue, 20 Apr 2021 18:41:56 GMT

Currently the line is done with break after like I mentioned but there is a lot of space. Trying to eliminate the spacing and bring the footnotes right under the line.

Re: Proc Template bottom line before printing footnotes

ballardw — Tue, 20 Apr 2021 22:02:38 GMT

@chrissowden wrote:

Currently the line is done with break after like I mentioned but there is a lot of space. Trying to eliminate the spacing and bring the footnotes right under the line.

Still haven't shown how any of your output is generated.

Re: Proc Template bottom line before printing footnotes

chrissowden — Wed, 21 Apr 2021 15:47:08 GMT

options ls=256 ps=44 orientation=landscape missing=""
topmargin="1in" bottommargin="1in" leftmargin="1in" rightmargin="1in"
nonumber nodate;

ods escapechar='~';
ods rtf file="..\..\Output\TLF\&ofilename..rtf" style=styles.lrtftmpl;
ods listing close;

proc report data=final split="^" headline headskip missing nowd spacing=2
style(header)={fontweight=medium protectspecialchars=off background=_undef_ asis=on};
column kppg kppg2 ord cnt aperiod avisitn col1 col2 col3 col4 col5 col6 col7 col8 ;

define kppg / group order order=data noprint;
define kppg2 / group order order=data noprint;
define ord / group order order=data noprint;
define cnt / group order order=data noprint;

define aperiod / group order order=data noprint;
define avisitn / group order order=data noprint;

define col1 / order "Visit^ SF-36 Component" order=data style(column)=[cellwidth=22% asis=on] style(header)=[just=l asis=on] ;
define col2 / display "Statistic" style(column)=[cellwidth=9% asis=on] style(header)=[just=l asis=on];
define col3 / display "Placebo Only^(1 or 2 Enemas)(N=&N1)" style(column)=[cellwidth=10% just=c ];
define col4 / display "1 Enema of^RBX2660^(N=&N2)" style(column)=[cellwidth=10% just=c ];
define col5 / display "2 Enemas of^RBX2660^(N=&N3)" style(column)=[cellwidth=12% just=c ];
define col6 / display "3 Enemas of^RBX2660^(N=&N4)" style(column)=[cellwidth=12% just=c ];
define col7 / display "4 Enemas of^RBX2660^(N=&N5)" style(column)=[cellwidth=12% just=c ];
define col8 / display "Total^(N=&N9)" style(column)=[cellwidth=10% just=c ];

break after kppg/page;

compute before kppg;
line @1 ' ';
endcomp;

compute after kppg2;
line @1 ' ';
endcomp;
/* */
/* compute after brk;*/
/* line @1 ' ';*/
/* endcomp;*/

***Add extra line above the column headers;
compute before _page_ / style = {just = left asis = on pretext = "~R/RTF'\brdrt\brdrs\brdrw10 '"};
line @2 " ";
endcomp;

***Add extra line at bottom of page;
compute after _page_ / style = {just = left asis = on pretext = "~R/RTF'\brdrt\brdrs\brdrw10 '"};
line @2 " ";
endcomp;
run;

ods rtf close;
ods listing;
here is an example of the proc report.

Re: Proc Template bottom line before printing footnotes

AnnabellaFarley — Sat, 10 Sep 2022 17:53:18 GMT

I agree with you

Re: Proc Template bottom line before printing footnotes

AnnabellaFarley — Thu, 22 Sep 2022 19:59:56 GMT

All customers are moving en masse to the Internet, online shopping is becoming easier and more convenient, delivery of goods is developing and accelerating, and today even small companies are trying to create a website with an online store. I don't think you need PROC TEMPLATE to get the line above the footnote Trying to eliminate spaces and put footnotes right below the line. First of all, these trends are for clothing stores, flower stores, digital and appliance stores, and grocery stores. There the events calendar elementor, and you can use them to create websites.

Re: Proc Template bottom line before printing footnotes

ballardw — Thu, 22 Sep 2022 21:59:37 GMT

First you are using a custom style as indicated by this line

ods rtf file="..\..\Output\TLF\&ofilename..rtf" style=styles.lrtftmpl;

Since options in a style make a big difference in output the definition should be shown.

Second, I still don't see anything generating a FOOTNOTE.

Actual FOOTNOTEs by default go into the footer area of the document which is pretty much controlled by the amount of text placed there and is displayed by the Wordprocessor software of choice by fitting from the bottom up. So a fixed footnote takes the same amount of space on the page regardless of where other tables end.

You might trying the text that you want to appear after the table as a POSTTEXT= style element in the compute after block. And why do you have Pretext there???