请教：SAS输出rtf中页眉页脚的设置问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

问题：下图是SAS  ODS 输出的rtf文件（页眉），以前输出很正常（一行），现在输出变成了两行，不知道咋调整，请教高手。



在SAS中使用Template过程定义了style，以前用32位系统使用没有问题，现在使用64位系统出现了以上的问题，请教如何修改Template。

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：RTF Template plate Style 64位系统

请贴出你的代码

孤单的我们 发表于 2017-6-26 16:39
请贴出你的代码

1. %macro RTftemp1(_headingFont="宋体",_docFont="宋体",_TitleFont="宋体",
   
2.                                 _textfont="宋体",_textsize=9.1pt,/*字体字号的设置*/
   
3.                 _bottommargin=15mm,_topmargin=10mm,
   
4.                                 _rightmargin=15mm,_leftmargin=20mm,/* 页边距的设置 */
   
5.                                 rules=group,frame=hsides /* 表格边框的设置 */
   
6.                                 );
   
7. 
   
8. Options NoDate NoCenter NoNumber NoMPrint NoMLogic NoSource NONOTES NOSOURCE2;
   
9. /*============================================================================*/
   
10. ODS PATH work.templat(update) sasuser.templat(update) sashelp.tmplmst(read);
    
11. 
    
12. proc template;
    
13.                 define style styles.SAR_Style;
    
14.                 parent =
    
15. /*                                styles.default;*/
    
16.                                 styles.sasdocprinter;
    
17.                                 %*styles.statdoc;
    
18.                    replace fonts /
    
19.                       'TitleFont' = (&_TitleFont.,9.1pt, ROMAN)
    
20.                           'TitleFont2' = (&_TitleFont.,9.1pt, ROMAN)
    
21.                       'headingFont' = (&_headingFont.,10pt, BOLD ROMAN)
    
22.                       'docFont' = (&_docFont.,10pt)
    
23.                       'footFont' = (&_TitleFont.,9.1pt)
    
24.                            'StrongFont' = ("ITC Bookman, Times Roman",10pt,Bold)
    
25.                       'EmphasisFont' = ("ITC Bookman, Times Roman",10pt,Italic)
    
26.                       'FixedEmphasisFont' = ("Courier",9pt,Italic)
    
27.                       'FixedStrongFont' = ("Courier",9pt,Bold)
    
28.                       'FixedHeadingFont' = ("Courier",9pt,Bold)
    
29.                       'BatchFixedFont' = ("SAS Monospace, Courier",7pt)
    
30.                       'FixedFont' = ("Courier",9pt)
    
31.                       'headingEmphasisFont' = ("ITC Bookman, Times Roman",10pt,Bold Italic)
    
32.                           ;
    
33.                 **表格;
    
34.                 replace table from output /
    
35.                    frame       = &frame  
    
36.                    rules       = &rules
    
37.                    borderwidth = 3
    
38.                    vjust       = middle
    
39.                    outputwidth = 100%
    
40.                    protectspecialchars = off
    
41.                     ;
    
42.                 **主体文件;
    
43.                 replace body from document /
    
44.                   bottommargin = &_bottommargin.
    
45.                   topmargin = &_topmargin.
    
46.                   rightmargin = &_rightmargin.
    
47.                   leftmargin = &_leftmargin.
    
48.                 ;
    
49.                 **text;
    
50.                 replace usertext from Note/  
    
51.                   font_face=&_textfont.
    
52.                   just=l  
    
53.                   font_size=&_textsize.  
    
54.                   vjust=middle;
    
55. 
    
56.                 style SysTitleAndFooterContainer from Container
    
57.                       "Controls container for system page title and system page footer." /
    
58.                       rules = NONE
    
59.                       frame =  
    
60.                                         below  
    
61. /*                                         void*/
    
62.                       vjust=BOTTOM
    
63.                           OUTPUTHEIGHT=1
    
64.                       outputwidth = 100%
    
65.                       cellpadding = 0
    
66.                       cellspacing = 0
    
67.                       borderwidth = 1;
    
68. 
    
69.                 end;
    
70. 
    
71. run;
    
72. %exit:
    
73. %mend RTftemp1;

复制代码

可否提供下图中页眉输出的相关代码，因为不太清楚你的参数写法

孤单的我们 发表于 2017-6-27 09:54
可否提供下图中页眉输出的相关代码，因为不太清楚你的参数写法

1. ODS RTF file="&OutPath.&Reportname..RTF" author="&_author."
   
2.         title="&docunmenttitle."
   
3.         style=styles.SAR_Style
   
4.     wordstyle="{\s1 Heading 1;}"
   
5. 
   
6. sectiondata="\sbknone";
   
7. 
   
8. ods escapechar = '~';
   
9. 
   
10. %* 3. Set page header and page footer ;
    
11. %** 3.1 页眉 -------------------------------------------------------;
    
12. %** 3.1.1 第一行：项目名称和统计分析报告;
    
13. title j=l "&projectname." j=r "&reportfor.";
    
14. 
    
15. %** 3.1.2 第二行：厂家名称和页码;
    
16. title2 j=l "&sponsor." j=r
    
17.         "{&LocalVar1. \field {\*\fldinst PAGE \\*MERGEFORMAT}}
    
18. {&LocalVar2.\field {\*\fldinst NUMPAGES  \\*MERGEFORMAT} &LocalVar3.}";
    
19. 
    
20. %** 3.2 页脚 --------------------------------------------------------;
    
21. %if &reportdate.= %then %do;
    
22.     data _null_;
    
23.            call symput("reportdate",left(put("&sysdate"d,&RptDateFormat.)));
    
24.     run;
    
25. %end;
    
26. footnote j=l "&LocalVar4.&reportdate." j=c "&version. " j=r "&statdpt.";
    
27. 
    
28. %** 4. Execute programs for TFLs  ;
    
29. %include "&PgmPath.&pgmname.";
    
30. 
    
31. %** 5. End ;
    
32. ODS RTF Close;

复制代码

title j=l "&projectname." j=r "&reportfor.";
这种写法似乎并不能实现一个左对齐，一个右对齐。而是对于每一个j= 输出一行
在rtf/word里的对齐方式是对整行都生效的。

这个问题我之前也没有很好的解决，只能退而求其次，在2个文本之间插入若干空格后左对齐。使其看起来似乎是两端对齐。
空格的数量需要根据页码的长度进行调整。

期待更厉害的坛友提出完美的解决方案。

孤单的我们 发表于 2017-6-27 12:49
title j=l "&projectname." j=r "&reportfor.";
这种写法似乎并不能实现一个左对齐，一个右对齐。而是对于 ...

非常感谢，采用空格的方法是非常规的方法，后续看看有没有坛友能够解决这个问题，谢谢！

我双行页眉是这样写的，你试下
title1 j=l "&gtitle1" j=c  j=r "&gtitle2";
title2 j=l "&gtitle3 "  j=r "&gtitle4";