/* Add this to init.sas    


 libname tmplglob "..\..\..\..\global\templates";
 ods path (prepend) tmplglob.templat(read) tmplglob.ods_style10(READ);
 
 */
 
 


libname tmplglob ".";

** This is for table/listing     *****;
%macro makeStyle (styleSuffix=, fontSize1=, fontSize2=, fontSize3=);
proc template;
   define style tmplglob.ods_style&styleSuffix / store=tmplglob.ods_style&styleSuffix;
      parent = styles.SASDocPrinter;
      replace fonts /
         'docFont' = ("Courier New, Times New Roman",&fontSize1.pt)
         'headingFont' = ("Courier New, Times New Roman",&fontSize1.pt)
         'headingEmphasisFont' = ("Courier New, Times New Roman",&fontSize1.pt,Bold Italic)
         'FixedFont' = ("Times Roman",&fontSize1.pt)
         'BatchFixedFont' = ("Courier New, Times New Roman",&fontSize2.pt)
         'FixedHeadingFont' = ("Times Roman",&fontSize1.pt,Bold)
         'FixedStrongFont' = ("Times Roman",&fontSize1.pt,Bold)
         'FixedEmphasisFont' = ("Times Roman",&fontSize1.pt,Italic)
         'EmphasisFont' = ("Courier New, Times New Roman",&fontSize1.pt,Italic)
         'StrongFont' = ("Courier New, Times New Roman",&fontSize1.pt,Bold)
         'TitleFont' = ("Courier New, Times New Roman",&fontSize1.pt)
         'TitleFont2' = (" Courier New, Times New Roman",&fontSize1.pt);
      style Table from Output /
         borderwidth = 0.75pt
         cellspacing = 0.75pt
         cellpadding = 1pt
         background = _undef_
         frame=above
         rules=groups;
      style body from document /
             leftmargin=1in
             rightmargin=1in
             topmargin=0.75in
             bottommargin=0.75in;
      replace HeadersAndFooters from Cell /
         font = fonts('HeadingFont');	
   end;
run;

%mend makeStyle;
%makeStyle(styleSuffix=10, fontSize1=10, fontSize2=10, fontSize3=);
%makeStyle(styleSuffix=09, fontSize1=9,  fontSize2=8, fontSize3=);
%makeStyle(styleSuffix=08, fontSize1=8,  fontSize2=8, fontSize3=);
 

** This is for figures      ******;
%macro makeStyleg (styleSuffix=, fontSize1=, fontSize2=, fontSize3=);

proc template;
   define style tmplglob.ods_styleg&styleSuffix / store=tmplglob.ods_styleg&styleSuffix;
      parent = styles.Printer;
      replace fonts /
         'TitleFont2' = ("<serif>, Times Roman, Arial",&fontSize1.pt)
         'TitleFont' = ("<serif>, Times Roman, Arial",&fontSize1.pt)
         'StrongFont' = ("<serif>, Times Roman, Arial",&fontSize1.pt)
         'EmphasisFont' = ("<serif>, Times Roman, Arial",&fontSize1.pt,Italic)
         'FixedEmphasisFont' = ("<serif>, Times Roman",&fontSize1.pt,Italic)
         'FixedStrongFont' = ("<serif>, Times Roman",&fontSize1.pt)
         'FixedHeadingFont' = ("<serif>, Times Roman",&fontSize1.pt)
         'BatchFixedFont' = ("<serif>, Times Roman, Arial",&fontSize2.pt)
         'FixedFont' = ("<serif>, Times Roman",&fontSize1.pt)
         'headingEmphasisFont' = ("<serif>, Times Roman, Arial",&fontSize1.pt,Italic)
         'headingFont' = ("<serif>, Times Roman, Arial",&fontSize1.pt)
         'docFont' = ("<serif>, Times Roman, Arial",&fontSize1.pt);
        style Body from Body /
         rules=none
         frame = hsides;

      style Table from Output /
         background = _undef_
         cellpadding = 2pt
         cellspacing = 0.75pt
         borderwidth = 0.75pt;
      replace HeadersAndFooters from Cell /
         font = fonts('HeadingFont');     
   end;
run;

%mend makeStyleg;
%makeStyleg(styleSuffix=10, fontSize1=10, fontSize2=8, fontSize3=);
%makeStyleg(styleSuffix=09, fontSize1=9,  fontSize2=8, fontSize3=);
%makeStyleg(styleSuffix=08, fontSize1=8,  fontSize2=8, fontSize3=);


 
*----------------------------------------------------;
*     End of Program                            -----;
*----------------------------------------------------;