| Date: | Thu, 1 Oct 1998 13:01:35 -0400 |
| Reply-To: | "Fehd, Ronald J." <rjf2@CDC.GOV> |
| Sender: | "SAS(r) Discussion" <SAS-L@UGA.CC.UGA.EDU> |
| From: | "Fehd, Ronald J." <rjf2@CDC.GOV> |
| Subject: | tip: change font + size + orientation |
| Content-Type: | text/plain |
|---|
Below are files I have put together, with help from SAS-L,
which I use as included files to change print setup.
many thanx to all who have contributed, over the years, to this solution.
Ron Fehd the macro -- and include -- maven CDC Atlanta GA
typical program usage:
%include SASAUTOS(IPSULAND);
%*include SASAUTOS(IPSUPOR8);
%*include SASAUTOS(IPSUPORT);
*proc PRINT data = <whatever>;
%include SASAUTOS(IDLGPRT);*opens [Alt File Print] dialogue box in output
window;
note1: linesize and pagesize in the IPSU???? files assume a left margin of
0.6 inch (for portrait use)
note2: sysprintfont gives an error if other options follow it, which is why
is it last in options statement
note3: using dm then options did not work,
note4: run may be optional, was necessary for testing
note5: usage: save each file under <name>.SAS in fileref SASAUTOS
filename SASAUTOS list;
will give you list of directories used
you can add a directory to SASAUTOS in either your config.sas or
autoexec.sas
/*IDLGPRT: Dialog: Print? [Alt File Print]*/
dm output 'dlgprt' output;
/*IDLGPSU: Dialog: Print SetUp [Alt File prinT setup]*/
dm 'dlgprtsetup display' log;
/*IPSULAND: Print SetUp Landscape 8*/
options linesize = 148
pagesize = 51
pageno = 1
sysprintfont='SAS Monospace' 8;
dm 'dlgprtsetup orient = landscape nodisplay';
run;
/*IPSUPOR8: Print SetUp Portrait 8*/
options linesize =110
pagesize = 67
pageno = 1
sysprintfont='SAS Monospace' 8;
dm 'dlgprtsetup orient = portrait nodisplay' log;
run;
/*IPSUPORT: Print SetUp Portrait 10*/
options linesize = 88
pagesize = 54
pageno = 1
sysprintfont='SAS Monospace' 10;
dm 'dlgprtsetup orient = portrait nodisplay' log;
run;
|