When an RTF file created with the RTF tagset is displayed in Microsoft Word, the Font drop-down box will contain "Courier New" as the value of the font being used. However, the font in the table cells will not actually display as Courier New.

This problem is most likely to occur when all of the following are true:

• The DBCS option is in effect.
• The locale is English.
• The Courier New font is requested in a style created by PROC TEMPLATE.
• No PARENT is specified in the style template.

The code below generates a problematic RTF file. To circumvent the problem, generate the RTF file with no leading spaces in the font name in the header of the RTF file. Please see the code in the Full Code tab for an example.

Operating System and Release Information

Instead of this:
{\f2\fmodern\fprq1\fcharset0{\*\panose 02070309020205020404} Courier New;}

This will result in the RTF file correctly displaying the Courier New font when opened in Microsoft Word.

proc template;   
   edit tagsets.rtf;
      define event addfont;                                                   
      start:    
         open font_tbl;                                                    
                                                                              
         do /if ^cmp( $lcid, "1033");    
            eval $newfam RTFENCODE($bestfam[LABEL]);                          
            eval $newcode RTFENCODE(CODE);                                    
            eval $newcodebase RTFENCODE(CODEBASE);                            
            put "{\f" LIST_INDEX $newfam "\fcharset" $newcode "\cpg" $        
                  newcodebase;                                                
                                    
            /* VALUE is the font name  */
            eval $newvalue RTFENCODE(VALUE);                                  

            do/if TEXT;     
              /* We can get the panose for a Trutype Font as TEXT */
              eval $newtext RTFENCODE(TEXT);      
              put "{\*\panose " $newtext "}"  $newvalue ";}" NL; 
            else ;
              put " " $newvalue ";}" NL;  
            done;                       
         else;                                                                
            do /if CODEBASE;                                                  
               put "{\f" LIST_INDEX $bestfam[LABEL ] "\fcharset" CODE "\cpg"  
                     CODEBASE;                                                
            else;                                                             
               put "{\f" LIST_INDEX $bestfam[LABEL ] "\fcharset0";            
            done;                                                             
                                                                              
            do/if TEXT;
              put "{\*\panose " TEXT "}" VALUE ";}" NL; 
            else ;
              put " " VALUE ";}" NL;  
            done;  
                                       
         done;  
                                                                    
      close;                                                               
      end;              
   end;
run;

proc template;
   define style test;
      style fonts  / "XFont" = ("Courier New",9pt);
      style Container / font = Fonts('XFont');
   end;
run;
quit;

data a;
   a="AAAA";
run;

ods tagsets.rtf style=test file="&sysver.%sysfunc(getoption(locale)).updatedtagset.rtf";
ods listing close;

proc print data=a;
run;

ods _all_ close;
ods listing;