/*
    The following SAS program may be used to create drivers
    which will support multiple paper sizes using the HPGL/2 and
    PostScript emulation modes on the HP Color LaserJet 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.

    NOTE: THIS CODE IS FOR USE WITH RELEASE 6.08 OF SAS/GRAPH
          SOFTWARE.
 */

*libname gdevice0 'your.sas.library';
proc gdevice c=SASHELP.devices nofs;
copy hpxl300  from=sashelp.devices newname=clj;
mod clj       des='Color LaserJet (HPGL/2) - Letter size'
              xmax=7.99
              ymax=10.5
              xpixels=8117
              ypixels=10668
              ucc='00000103'x
              horigin=0
              vorigin=0
              hsize=0
              vsize=0
              lrows=0
              lcols=0
              prows=54
              pcols=77
              gprolog='1B252D313233343558'x
                      '40504A4C20'x             /* @PJL          */
                      '454E54455220'x           /* ENTER         */
                      '4C414E47554147453D'x     /* LANGUAGE=     */
                      '50434C0A'x               /* PCL           */
                      '1B45'x                   /* Reset         */
                      '1B266C3241'x             /* Letter Size   */
                      '1B266C304F'x             /* Portrait      */
                      '1B2A6335373630783735363059'x /* Pict Frame*/
                      '1B2A7030782D31303659'x   /* Move cursor   */
                      '1B2A633054'x             /* Set anchor pt */
                      '1B253142'x               /* Switch HPGL/2 */
                      '494E3B'x                 /* IN;           */
                      '4950302C302C383131372C31303636383B'x
              gepilog='1B253141'x               /* Switch to PCL */
                      '1B252D313233343558'x
              handshake=xonxoff
              lfactor=2
              ;
run;
copy hpxl300  from=sashelp.devices newname=cljlegal;
mod cljlegal  des='Color LaserJet (HPGL/2) - Legal size'
              xmax=7.99
              ymax=13.0
              xpixels=8117
              ypixels=13208
              ucc='00000103'x
              horigin=0
              vorigin=0
              hsize=0
              vsize=0
              lrows=0
              lcols=0
              prows=67
              pcols=77
              gprolog='1B252D313233343558'x
                      '40504A4C20'x             /* @PJL          */
                      '454E54455220'x           /* ENTER         */
                      '4C414E47554147453D'x     /* LANGUAGE=     */
                      '50434C0A'x               /* PCL           */
                      '1B45'x                   /* Reset         */
                      '1B266C3341'x             /* Legal Size    */
                      '1B266C304F'x             /* Portrait      */
                      '1B2A6335373630783735363059'x /* Pict Frame*/
                      '1B2A7030782D31303659'x   /* Move cursor   */
                      '1B2A633054'x             /* Set anchor pt */
                      '1B253142'x               /* Switch HPGL/2 */
                      '494E3B'x                 /* IN;           */
                      '4950302C302C383131372C31333230383B'x
              gepilog='1B253141'x               /* Switch to PCL */
                      '1B252D313233343558'x
              handshake=xonxoff
              lfactor=2
              ;
run;
copy hpxl300  from=sashelp.devices newname=clja4;
mod clja4     des='Color LaserJet (HPGL/2) - A4 size'
              xmax=19.7 cm
              ymax=28.4 cm
              xpixels=7880
              ypixels=11360
              ucc='00000103'x
              horigin=0
              vorigin=0
              hsize=0
              vsize=0
              lrows=0
              lcols=0
              prows=57
              pcols=74
              gprolog='1B252D313233343558'x
                      '40504A4C20'x             /* @PJL          */
                      '454E54455220'x           /* ENTER         */
                      '4C414E47554147453D'x     /* LANGUAGE=     */
                      '50434C0A'x               /* PCL           */
                      '1B45'x                   /* Reset         */
                      '1B266C323641'x           /* A4 Page Size  */
                      '1B266C304F'x             /* Portrait      */
                      '1B2A6335353834783830353059'x /* Pict Frame*/
                      '1B2A7030782D31303659'x   /* Move cursor   */
                      '1B2A633054'x             /* Set anchor pt */
                      '1B253142'x               /* Switch HPGL/2 */
                      '494E3B'x                 /* IN;           */
                      '4950302C302C373838302C31313336303B'x
              gepilog='1B253141'x               /* Switch to PCL */
                      '1B252D313233343558'x
              handshake=xonxoff
              lfactor=2
              ;
copy pscolor  from=sashelp.devices newname=cljps;
mod cljps     des='Color LaserJet (PostScript)-Letter size'
              horigin=0.25
              vorigin=0.25
              vsize=10.5
              prows=85
              pcols=80
              prompt=0
              gprolog='1B252D313233343558'x
                      '40504A4C20'x             /* @PJL          */
                      '454E54455220'x           /* ENTER         */
                      '4C414E47554147453D'x     /* LANGUAGE=     */
                      '504F53545343524950540A'x /* POSTSCRIPT    */
              gepilog='1B252D313233343558'x
              ;
copy pscolor  from=sashelp.devices newname=cljpsa4;
mod cljpsa4   des='Color LaserJet (PostScript) - A4 size'
              xmax=21.0 CM
              ymax=29.7 CM
              xpixels=2480
              ypixels=3507
              hsize=19.0 CM
              vsize=27.7 CM
              horigin=1.0 CM
              vorigin=1.0 CM
              lrows=0
              lcols=0
              prows=88
              pcols=74
              prompt=0
gprolog='1B252D31323334355840504A4C20454E544552204C414E4755414745'x
        '3D504F53545343524950540A63757272656E74706167656465766963'x
        '65202F496E7075744174747269627574657320676574203020676574'x
        '0A2F5061676553697A65205B353935203834325D0A7075740A3C3C0A'x
        '2F5061676553697A65205B353935203834325D0A2F496D6167696E67'x
        '42426F78206E756C6C0A3E3E20736574706167656465766963650A'x
gepilog='04'x
;
run;
quit;