From:	SMTP%"RELAY-INFO-VAX@CRVAX.SRI.COM" 15-JUN-1994 10:00:35.77
To:	EVERHART
CC:	
Subj:	LN03 in landscape and other printer forms

From: iskandar@u.washington.edu (Alexandre Khalil)
X-Newsgroups: comp.os.vms
Subject: LN03 in landscape and other printer forms
Date: 15 Jun 1994 05:23:26 GMT
Organization: University of Washington
Lines: 104
Message-ID: <2tm38e$fqe@news.u.washington.edu>
NNTP-Posting-Host: saul1.u.washington.edu
To: Info-VAX@CRVAX.SRI.COM
X-Gateway-Source-Info: USENET


  A while back I asked about printing landscape on an LN03.

  I would like to extend my thanks to the many who wrote to clarify this
until then confusing situation for me. 

  And of course, thanks to Info-VAX and comp.os.vms

alex

------------------

How to Print Landscape on an LN03
=================================

- Prepare the following two files. 

  One called, e.g., LN03L132X64.TMP will contain the escape sequence to 
place the LN03 in landscape mode, in this case:

<ESC>[?21 J<ESC>[15m<ESC>[1;66r

  The three control sequences are:
PFS     Page Format Select 8-1/2" x 11" landscape.
SGR     Select Graphic Rendition (Font)  6.7 point Courier 13.6 pitch.
DECSTBM DEC Set Top & Bottom Margins

  See "LN03 Programmer Reference Manual" order number EK-OLN03-RM p. 121 for 
the sordid details of this and many other tricks your printer is capable of.

  To insert an <ESC> chararcter, you use

EDT: <GOLD> <keyboard 2> <keyboard 7> <GOLD> <keypad 3>  
TPU: <DO> tpu copy_text(ascii(27)) <RET>

  The other file LN03_RESET.TMP will contain the sequence that places your 
LN03 in its default mode.  In my case, a reset was enough, hence:

<ESC>[3 J

- This done, you want to insert the sequences in a modules library.

  Look for the file SYS$LIBRARY:SYSDEVCTL.TLB. 

  If you don't find it, create it with 

$ LIBRARY/CREATE/TEXT SYSDEVCTL.TLB LN03_RESET.TMP 

  This will both create the library and insert the first sequence as a 
module called LN03_RESET.TMP.

  If you do find SYSDEVCTL.TLB, then use

$ LIBRARY/INSERT/TEXT SYSDEVCTL.TLB LN03_RESET.TMP 

to insert the first library.

  Then insert the second library with 

$ LIBRARY/INSERT/TEXT SYSDEVCTL.TLB LN03L132X65.TMP 

  Verify that your modules are in place with

$ LIBRARY/LIST/TEXT SYS$LIBRARY:SYSDEVCTL.TLB

- The next step is to define a form for each one of those modules, 
possibly in one of the startup files, with

$!
$!   LN03 - landscape mode, 132 column, 66 lines
$!
$ DEFINE/FORM/DESC="LN03+ landscape 132 x 66"/LENGTH=66/WIDTH=132 -
        /MARGIN=(LEFT=0,RIGHT=0,TOP=0,BOTTOM=0)/STOCK=DEFAULT -
        /SETUP=LN03L132X66/NOTRUNCATE/NOWRAP Landscape 23

and

$!
$!   LN03 - landscape mode, 132 column, 66 lines
$!
$ DEFINE/FORM/DESC="LN03 Default"/LENGTH=66/WIDTH=132 -
        /MARGIN=(LEFT=0,RIGHT=0,TOP=0,BOTTOM=6)/STOCK=DEFAULT -
        /SETUP=LN03_reset/TRUNCATE/NOWRAP default 0

- The final step is to make the form LN03_RESET the default one using

$ SET QUEUE QUEUE_NAME /DEF=(FORM=LN03_RESET)

somewhere in one of the startup files.

 And reboot.

  Now, you can print landscape by using

$ PRINT /QUEUE=QUEUE_NAME /FORM=LANDSCAPE MY.FILE

knowing that the next user will have the default form LN03_RESET place the 
printer back in its (default) portrait mode.


--
alex khalil     sysadmin              Medical Genetics, U of W
iskandar@u.washington.edu             1914  NE 34th St. #209
U. of Washington  RG-25               Seattle WA 98103