/* The following SAS program may be used to create drivers that will support Legal, B4, A3, A4 and B media sizes on the HP PaintJet XL300 printer. It is assumed that the new driver entries will be stored in the SASHELP.DEVICES catalog. If you do not have update access to this catalog, create the driver entries in your own catalog, GDEVICE0.DEVICES. You may do this by uncommenting the LIBNAME statement below and changing SASHELP to GDEVICE0 on the PROC GDEVICE statement. A minimum of 10 meg of printer memory is required to use the B4, A3 and B size drivers. NOTE: THIS CODE IS FOR USE WITH RELEASE 6.08 AND ABOVE OF SAS/GRAPH SOFTWARE. */ *libname gdevice0 'your.sas.library'; proc gdevice c=SASHELP.devices nofs; copy xl300ps from=sashelp.devices newname=XLPSLGL; mod XLPSLGL des='HP PaintJet XL300-PostScript-Legal Size' ymax=14.0 vsize=13.5 ypixels=4200 prows=109 gprolog='1B252D313233343558'x /* Exit PCL Lang */ '40504A4C20'x /* @PJL */ '454E54455220'x /* ENTER */ '4C414E47554147453D'x /* LANGUAGE= */ '504F53545343524950540A'x /* POSTSCRIPT */ '63757272656E747061676564657669636520'x '2F496E7075744174747269627574657320'x '6765742030206765740A'x '2F5061676553697A6520'x '5B36313220313030385D0A'x '7075740A3C3C0A'x '2F5061676553697A65205B36313220313030385D0A'x '2F496D6167696E6742426F78206E756C6C0A'x '3E3E20736574706167656465766963650A'x charrec=( 1,113,85,'/Courier', 'Y', 2,113,85,'/Courier-Oblique', 'Y', 3,113,85,'/Courier-Bold', 'Y', 4,113,85,'/Courier-BoldOblique', 'Y', 5,113,85,'/Times-Roman', 'Y', 6,113,85,'/Times-Italic', 'Y', 7,113,85,'/Times-Bold', 'Y', 8,113,85,'/Times-BoldItalic', 'Y', 9,113,85,'/Helvetica', 'Y', 10,113,85,'/Helvetica-Oblique', 'Y', 11,113,85,'/Helvetica-Bold', 'Y', 12,113,85,'/Helvetica-BoldOblique', 'Y', 13,113,85,'/Symbol', 'Y', 14,113,85,'/AvantGarde-Book', 'Y', 15,113,85,'/AvantGarde-Demi', 'Y', 16,113,85,'/AvantGarde-BookOblique', 'Y', 17,113,85,'/AvantGarde-DemiOblique', 'Y', 18,113,85,'/Palatino-Roman', 'Y', 19,113,85,'/Palatino-Bold', 'Y', 20,113,85,'/Palatino-Italic', 'Y', 21,113,85,'/Palatino-BoldItalic', 'Y', 22,113,85,'/NewCenturySchlbk-Roman', 'Y', 23,113,85,'/NewCenturySchlbk-Bold', 'Y', 24,113,85,'/NewCenturySchlbk-Italic', 'Y', 25,113,85,'/NewCenturySchlbk-BoldItalic', 'Y', 26,113,85,'/Helvetica-Narrow', 'Y', 27,113,85,'/Helvetica-Narrow-Bold', 'Y', 28,113,85,'/Helvetica-Narrow-Oblique', 'Y', 29,113,85,'/Helvetica-Narrow-BoldOblique', 'Y', 30,113,85,'/ZapfChancery-MediumItalic', 'Y', 31,113,85,'/ZapfDingbats', 'Y', 32,113,85,'/Bookman-Light', 'Y', 33,113,85,'/Bookman-Demi', 'Y', 34,113,85,'/Bookman-LightItalic', 'Y', 35,113,85,'/Bookman-DemiItalic', 'Y') ; copy xl300ps from=sashelp.devices newname=XLPSB4; mod XLPSB4 des='HP PaintJet XL300-PostScript-B4 Size' xmax= 25.7 cm ymax= 36.4 cm hsize= 23.7 cm vsize= 34.4 cm horigin=1.0 cm vorigin=1.0 cm xpixels=3035 ypixels=4299 prows=109 pcols=93 gprolog='1B252D313233343558'x /* Exit PCL Lang */ '40504A4C20'x /* @PJL */ '454E54455220'x /* ENTER */ '4C414E47554147453D'x /* LANGUAGE= */ '504F53545343524950540A'x /* POSTSCRIPT */ '63757272656E747061676564657669636520'x '2F496E7075744174747269627574657320'x '6765742030206765740A'x '2F5061676553697A6520'x '5B37323820313033325D0A'x '7075740A3C3C0A'x '2F5061676553697A65205B37323820313033325D0A'x '2F496D6167696E6742426F78206E756C6C0A'x '3E3E20736574706167656465766963650A'x charrec=( 1,116,101,'/Courier', 'Y', 2,116,101,'/Courier-Oblique', 'Y', 3,116,101,'/Courier-Bold', 'Y', 4,116,101,'/Courier-BoldOblique', 'Y', 5,116,101,'/Times-Roman', 'Y', 6,116,101,'/Times-Italic', 'Y', 7,116,101,'/Times-Bold', 'Y', 8,116,101,'/Times-BoldItalic', 'Y', 9,116,101,'/Helvetica', 'Y', 10,116,101,'/Helvetica-Oblique', 'Y', 11,116,101,'/Helvetica-Bold', 'Y', 12,116,101,'/Helvetica-BoldOblique', 'Y', 13,116,101,'/Symbol', 'Y', 14,116,101,'/AvantGarde-Book', 'Y', 15,116,101,'/AvantGarde-Demi', 'Y', 16,116,101,'/AvantGarde-BookOblique', 'Y', 17,116,101,'/AvantGarde-DemiOblique', 'Y', 18,116,101,'/Palatino-Roman', 'Y', 19,116,101,'/Palatino-Bold', 'Y', 20,116,101,'/Palatino-Italic', 'Y', 21,116,101,'/Palatino-BoldItalic', 'Y', 22,116,101,'/NewCenturySchlbk-Roman', 'Y', 23,116,101,'/NewCenturySchlbk-Bold', 'Y', 24,116,101,'/NewCenturySchlbk-Italic', 'Y', 25,116,101,'/NewCenturySchlbk-BoldItalic', 'Y', 26,116,101,'/Helvetica-Narrow', 'Y', 27,116,101,'/Helvetica-Narrow-Bold', 'Y', 28,116,101,'/Helvetica-Narrow-Oblique', 'Y', 29,116,101,'/Helvetica-Narrow-BoldOblique', 'Y', 30,116,101,'/ZapfChancery-MediumItalic', 'Y', 31,116,101,'/ZapfDingbats', 'Y', 32,116,101,'/Bookman-Light', 'Y', 33,116,101,'/Bookman-Demi', 'Y', 34,116,101,'/Bookman-LightItalic', 'Y', 35,116,101,'/Bookman-DemiItalic', 'Y') ; copy xl300ps from=sashelp.devices newname=XLPSA3; mod XLPSA3 des='HP PaintJet XL300-PostScript-A3 Size' xmax= 29.7 cm ymax= 42.0 cm hsize= 27.7 cm vsize= 40.0 cm horigin=1.0 cm vorigin=1.0 cm xpixels=3507 ypixels=4960 prows=127 pcols=109 gprolog='1B252D313233343558'x /* Exit PCL Lang */ '40504A4C20'x /* @PJL */ '454E54455220'x /* ENTER */ '4C414E47554147453D'x /* LANGUAGE= */ '504F53545343524950540A'x /* POSTSCRIPT */ '63757272656E747061676564657669636520'x '2F496E7075744174747269627574657320'x '6765742030206765740A'x '2F5061676553697A6520'x '5B38343220313139305D0A'x '7075740A3C3C0A'x '2F5061676553697A65205B38343220313139305D0A'x '2F496D6167696E6742426F78206E756C6C0A'x '3E3E20736574706167656465766963650A'x charrec=( 1,134,116,'/Courier', 'Y', 2,134,116,'/Courier-Oblique', 'Y', 3,134,116,'/Courier-Bold', 'Y', 4,134,116,'/Courier-BoldOblique', 'Y', 5,134,116,'/Times-Roman', 'Y', 6,134,116,'/Times-Italic', 'Y', 7,134,116,'/Times-Bold', 'Y', 8,134,116,'/Times-BoldItalic', 'Y', 9,134,116,'/Helvetica', 'Y', 10,134,116,'/Helvetica-Oblique', 'Y', 11,134,116,'/Helvetica-Bold', 'Y', 12,134,116,'/Helvetica-BoldOblique', 'Y', 13,134,116,'/Symbol', 'Y', 14,134,116,'/AvantGarde-Book', 'Y', 15,134,116,'/AvantGarde-Demi', 'Y', 16,134,116,'/AvantGarde-BookOblique', 'Y', 17,134,116,'/AvantGarde-DemiOblique', 'Y', 18,134,116,'/Palatino-Roman', 'Y', 19,134,116,'/Palatino-Bold', 'Y', 20,134,116,'/Palatino-Italic', 'Y', 21,134,116,'/Palatino-BoldItalic', 'Y', 22,134,116,'/NewCenturySchlbk-Roman', 'Y', 23,134,116,'/NewCenturySchlbk-Bold', 'Y', 24,134,116,'/NewCenturySchlbk-Italic', 'Y', 25,134,116,'/NewCenturySchlbk-BoldItalic', 'Y', 26,134,116,'/Helvetica-Narrow', 'Y', 27,134,116,'/Helvetica-Narrow-Bold', 'Y', 28,134,116,'/Helvetica-Narrow-Oblique', 'Y', 29,134,116,'/Helvetica-Narrow-BoldOblique', 'Y', 30,134,116,'/ZapfChancery-MediumItalic', 'Y', 31,134,116,'/ZapfDingbats', 'Y', 32,134,116,'/Bookman-Light', 'Y', 33,134,116,'/Bookman-Demi', 'Y', 34,134,116,'/Bookman-LightItalic', 'Y', 35,134,116,'/Bookman-DemiItalic', 'Y') ; copy xl300ps from=sashelp.devices newname=XLPSA4; mod XLPSA4 des='HP PaintJet XL300-PostScript-A4 Size' xmax=21.0 cm ymax=29.7 cm hsize=19.0 cm vsize=27.7 cm xpixels=2480 ypixels=3507 horigin=1.0 cm vorigin=1.0 cm prows=88 pcols=74 gprolog='1B252D313233343558'x /* Exit PCL Lang */ '40504A4C20'x /* @PJL */ '454E54455220'x /* ENTER */ '4C414E47554147453D'x /* LANGUAGE= */ '504F53545343524950540A'x /* POSTSCRIPT */ '63757272656E747061676564657669636520'x '2F496E7075744174747269627574657320'x '6765742030206765740A'x '2F5061676553697A6520'x '5B353935203834325D0A'x '7075740A3C3C0A'x '2F5061676553697A65205B353935203834325D0A'x '2F496D6167696E6742426F78206E756C6C0A'x '3E3E20736574706167656465766963650A'x charrec=( 1,94,82,'/Courier', 'Y', 2,94,82,'/Courier-Oblique', 'Y', 3,94,82,'/Courier-Bold', 'Y', 4,94,82,'/Courier-BoldOblique', 'Y', 5,94,82,'/Times-Roman', 'Y', 6,94,82,'/Times-Italic', 'Y', 7,94,82,'/Times-Bold', 'Y', 8,94,82,'/Times-BoldItalic', 'Y', 9,94,82,'/Helvetica', 'Y', 10,94,82,'/Helvetica-Oblique', 'Y', 11,94,82,'/Helvetica-Bold', 'Y', 12,94,82,'/Helvetica-BoldOblique', 'Y', 13,94,82,'/Symbol', 'Y', 14,94,82,'/AvantGarde-Book', 'Y', 15,94,82,'/AvantGarde-Demi', 'Y', 16,94,82,'/AvantGarde-BookOblique', 'Y', 17,94,82,'/AvantGarde-DemiOblique', 'Y', 18,94,82,'/Palatino-Roman', 'Y', 19,94,82,'/Palatino-Bold', 'Y', 20,94,82,'/Palatino-Italic', 'Y', 21,94,82,'/Palatino-BoldItalic', 'Y', 22,94,82,'/NewCenturySchlbk-Roman', 'Y', 23,94,82,'/NewCenturySchlbk-Bold', 'Y', 24,94,82,'/NewCenturySchlbk-Italic', 'Y', 25,94,82,'/NewCenturySchlbk-BoldItalic', 'Y', 26,94,82,'/Helvetica-Narrow', 'Y', 27,94,82,'/Helvetica-Narrow-Bold', 'Y', 28,94,82,'/Helvetica-Narrow-Oblique', 'Y', 29,94,82,'/Helvetica-Narrow-BoldOblique', 'Y', 30,94,82,'/ZapfChancery-MediumItalic', 'Y', 31,94,82,'/ZapfDingbats', 'Y', 32,94,82,'/Bookman-Light', 'Y', 33,94,82,'/Bookman-Demi', 'Y', 34,94,82,'/Bookman-LightItalic', 'Y', 35,94,82,'/Bookman-DemiItalic', 'Y') ; copy xl300ps from=sashelp.devices newname=XLPSB; mod XLPSB des='HP PaintJet XL300-PostScript-B Size' xmax=11.0 ymax=17.0 hsize=10.6 vsize=16.6 horigin=0.2 vorigin=0.2 xpixels=3300 ypixels=5100 prows=134 pcols=106 gprolog='1B252D313233343558'x /* Exit PCL Lang */ '40504A4C20'x /* @PJL */ '454E54455220'x /* ENTER */ '4C414E47554147453D'x /* LANGUAGE= */ '504F53545343524950540A'x /* POSTSCRIPT */ '63757272656E747061676564657669636520'x '2F496E7075744174747269627574657320'x '6765742030206765740A'x '2F5061676553697A6520'x '5B37393220313232345D0A'x '7075740A3C3C0A'x '2F5061676553697A65205B37393220313232345D0A'x '2F496D6167696E6742426F78206E756C6C0A'x '3E3E20736574706167656465766963650A'x charrec=( 1,137,110,'/Courier', 'Y', 2,137,110,'/Courier-Oblique', 'Y', 3,137,110,'/Courier-Bold', 'Y', 4,137,110,'/Courier-BoldOblique', 'Y', 5,137,110,'/Times-Roman', 'Y', 6,137,110,'/Times-Italic', 'Y', 7,137,110,'/Times-Bold', 'Y', 8,137,110,'/Times-BoldItalic', 'Y', 9,137,110,'/Helvetica', 'Y', 10,137,110,'/Helvetica-Oblique', 'Y', 11,137,110,'/Helvetica-Bold', 'Y', 12,137,110,'/Helvetica-BoldOblique', 'Y', 13,137,110,'/Symbol', 'Y', 14,137,110,'/AvantGarde-Book', 'Y', 15,137,110,'/AvantGarde-Demi', 'Y', 16,137,110,'/AvantGarde-BookOblique', 'Y', 17,137,110,'/AvantGarde-DemiOblique', 'Y', 18,137,110,'/Palatino-Roman', 'Y', 19,137,110,'/Palatino-Bold', 'Y', 20,137,110,'/Palatino-Italic', 'Y', 21,137,110,'/Palatino-BoldItalic', 'Y', 22,137,110,'/NewCenturySchlbk-Roman', 'Y', 23,137,110,'/NewCenturySchlbk-Bold', 'Y', 24,137,110,'/NewCenturySchlbk-Italic', 'Y', 25,137,110,'/NewCenturySchlbk-BoldItalic', 'Y', 26,137,110,'/Helvetica-Narrow', 'Y', 27,137,110,'/Helvetica-Narrow-Bold', 'Y', 28,137,110,'/Helvetica-Narrow-Oblique', 'Y', 29,137,110,'/Helvetica-Narrow-BoldOblique', 'Y', 30,137,110,'/ZapfChancery-MediumItalic', 'Y', 31,137,110,'/ZapfDingbats', 'Y', 32,137,110,'/Bookman-Light', 'Y', 33,137,110,'/Bookman-Demi', 'Y', 34,137,110,'/Bookman-LightItalic', 'Y', 35,137,110,'/Bookman-DemiItalic', 'Y') ; run; quit;