********************************************************;
* Getfnt.sas                                           *;
********************************************************;
* Make sure host printing is enabled                   *;
* To do this                                           *;
* 1. select the view pulldown                          *;
* 2. select preferences                                *;
* 3. select the display manager tab                    *;
* 4. click on the "use host printing" button           *;
* 5. click on the driver you wish to use in the        *;
*    file=>print setup pulldown                        *;
********************************************************;
libname gdevice0 'your.device.driver.catalog.directory';
libname gfont0 'your.device.driver.catalog.directory';
goptions reset=global;
********************************************************;
* This step deletes any previous xprintg entry in the  *;
* catalog so we can update the fonts appropriate for   *;
* the new device that has been selected in the         *;
* file=>print setup window.                            *;
********************************************************;
 
********************************************************;
* In all of these steps you can substitute xprintc or  *;
* xprintm depending on the printer you have selected   *;
* the file=>print setup window.  I would only use      *;
* the xprintm device driver if monochrome output was   *;
* was desired.                                         *;
********************************************************;

proc gdevice c=gdevice0.devices nofs;
delete xprintg;
copy xprintg from=sashelp.devices newname=xprintg;
run;
quit;

********************************************************;
* This step loads the fonts in the chartype screen     *;
********************************************************;
proc getfnt device=xprintg; run; quit;

********************************************************;
* This step generates a listing to the output window   *;
* of the device drivers involved                       *;
* The chartype section will have a listing of the      *;
* fonts and the font number associated with the printer*;
********************************************************;

proc gdevice c=gdevice0.devices nofs;
list xprintg;
run;

*******************************************************;
* Now to generate some output to see how the fonts    *;
* on the printer.  Depending on the device driver     *;
* selected in the FILE=>PRINT SETUP window            *;
* you may have anywhere from 12 to 30 fonts loaded    *;
*******************************************************;

goptions device=xprintg;
proc gslide;
title    f=hwdmx001  H=2 'This  is hwdmx001';
title2   f=hwdmx002  H=2 'This  is hwdmx002';
title3   f=hwdmx003  H=2 'This  is hwdmx003';
title4   f=hwdmx004  H=2 'This  is hwdmx004';
title5   f=hwdmx005  H=2 'This  is hwdmx005';
title6   f=hwdmx006  H=2 'This  is hwdmx006';
title7   f=hwdmx007  H=2 'This  is hwdmx007';
title8   f=hwdmx008  H=2 'This  is hwdmx008';
title9   f=hwdmx009  H=2 'This  is hwdmx009';
title10  f=hwdmx010  H=2 'This  is hwdmx010';
note j=c f=hwdmx011 H=2 'This  is hwdmx011';
note j=c f=hwdmx012 H=2 'This  is hwdmx012';
note j=c f=hwdmx013 H=2 'This  is hwdmx013';
note j=c f=hwdmx014 H=2 'This  is hwdmx014';
note j=c f=hwdmx015 H=2 'This  is hwdmx015';
note j=c f=hwdmx016 H=2 'This  is hwdmx016';
note j=c f=hwdmx017 H=2 'This  is hwdmx017';
note j=c f=hwdmx018 H=2 'This  is hwdmx018';
note j=c f=hwdmx019 H=2 'This  is hwdmx019';
note j=c f=hwdmx020 H=2 'This  is hwdmx020';
footnote1  j=c f=hwdmx021 H=2 'This is hwdmx021';
footnote2  j=c f=hwdmx022 H=2 'This is hwdmx022';
footnote3  j=c f=hwdmx023 H=2 'This is hwdmx023';
footnote4  j=c f=hwdmx024 H=2 'This is hwdmx024';
footnote5  j=c f=hwdmx025 H=2 'This is hwdmx025';
footnote6  j=c f=hwdmx026 H=2 'This is hwdmx026';
footnote7  j=c f=hwdmx027 H=2 'This is hwdmx027';
footnote8  j=c f=hwdmx028 H=2 'This is hwdmx028';
footnote9  j=c f=hwdmx029 H=2 'This is hwdmx029';
footnote10 j=c f=hwdmx030 H=2 'This is hwdmx030';
run;
quit;