HP3000-L Archives

November 1999, Week 2

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
Barry Lake <[log in to unmask]>
Reply To:
Barry Lake <[log in to unmask]>
Date:
Tue, 9 Nov 1999 14:39:47 -0800
Content-Type:
text/plain
Parts/Attachments:
text/plain (38 lines)
At 9:43 PM +0000 11/9/99, [log in to unmask] wrote:
>Can anyone remind me of how to define an item in quiz that can be used
>in a report to change fonts and other stuff on a laser jet?

Here's something I once did:

  DEFINE ESC-NUM INT*04 = 27
  DEFINE ESC     CHA*01 = CHAR(ESC-NUM)[2:1]

  DEFINE FF-NUM   INT*04 = 10  ;10=linefeed, 12=formfeed
  DEFINE FORMFEED CHA*01 = CHAR(FF-NUM)[2:1]

  DEFINE LJ-SETUP CHA*40 = &
         ESC + "Z"       + &  ; display functions off (Z=off,Y=on)
         ESC + "E"       + &  ; reset
  ;      ESC + "&l1O"    + &  ; paper orientation (1=lndscp,0=port)
         ESC + "&l8D"    + &  ; lines per inch
         ESC + "(8U"     + &  ; character set (8U=HP Roman-8)
         ESC + "(s"      + &  ; beginning of font sequence
               "0p"      + &  ; spacing (0=fixed,1=proportional)
               "17h"     + &  ; pitch
  ;            "#v"      + &  ; point size
               "0s"      + &  ; style (0=upright,1=italic)
               "0b"      + &  ; stroke weight (-3=light,0=medium,3=bold)
               "4099T" ; + &  ; courier font
  ;      FORMFEED


Report the LJ-SETUP item as the first item in you page header, and
everything that follows should be printed with the characteristics you
specify.

HTH,

Barry Lake                                 [log in to unmask]
Allegro Consultants, Inc.                  www.allegro.com
(408)252-2330

ATOM RSS1 RSS2