/*
    The following SAS program may be used to create a driver
    (PHSR340M) which will support A4-size media on the Tektronix
    Phaser 340 printer. It is assumed that the new driver entry
    will be stored in the SASHELP.DEVICES catalog. If you do not
    have update access to this catalog, create the driver entry
    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 AND ABOVE
          OF SAS/GRAPH SOFTWARE.
 */

*libname gdevice0 'your.sas.library';
proc gdevice c=SASHELP.devices nofs;
  copy pscolor from=sashelp.devices newname=PHSR340M;
  mod PHSR340M des="Tektronix Phaser 340 Color Printer -- A4 Size"
               xmax=21.0 cm
               ymax=29.7 cm
               hsize=19.0 cm
               vsize=27.7 cm
               horigin=1.0 cm
               vorigin=1.0 cm
               xpixels=2480
               ypixels=3507
               prows=88
               pcols=74
               gprolog='04'x
               gepilog='04'x
               prompt=0
               ;
run;
quit;

/*

    The following PostScript file may be sent to the Tektronix
    Phaser 340 printer ONCE prior to producing SAS/GRAPH output
    on the printer. This will initialize the printer for printing
    on A4-size media.  Please note that this job assumes that A4
    media has already been loaded in the lower or manual feed
    tray.  NOTE: The "" ("04" hex) character near the beginning
    and at the end of the file is important and must be in the
    file.

*/

*** Cut Here ***
%!

%
% Copyright(c) 1992,1993,1994,1995 Tektronix, Incorporated. All rights reserved.
%

% $Revision: 1.5 $

%  Use this file to enable printing on A4 media.
%

%  Wrap function with startjob to make the change persistent.
systemdict/languagelevel known{languagelevel 2 eq{true (0) startjob dup not
 {/exitserver errordict/invalidaccess get exec}if}{false}ifelse}{false}ifelse
not {quit} if

mark
{
  product (Phaser 2) anchorsearch
  { pop pop 2 dict begin
      /InputAttributes 1 dict begin /Priority [0] def currentdict end def }
  { (Phaser 440) anchorsearch
    { pop pop 3 dict begin
      /PageSize [595 842]
      /ImagingBBox null
      /MediaType null def
      /MediaColor null def }
    { pop 4 dict begin
      /MediaPosition 0 def
      /MediaType null def
      /ManualFeed false def } ifelse
  } ifelse
  /TraySwitch false def
  currentdict end setpagedevice
} stopped cleartomark

false (0) startjob pop