Compressed Text
mary_cotton@ex.cv.hp.com
mary_cotton@ex.cv.hp.com
Wed, 6 Sep 2000 10:13:00 -0700
Hello,
I just thought I'd pass on some other options that may not be known to everyone.
If you can get tools, I would suggest Fantasia or JetForm for detailed forms and
general font control. Jet Form is a nice windows PC tool for developing the
form. You then 'compile' it and run it on the HP3000 against your PH output and
a program that resides on the 3000.
Another thing that makes life easier if you just want everything in the
file/report to use the same font set-up on a laserjet, is to use the term types
that I find in the @.LJETENV.SYS account on my machine. Since I don't work
anywhere near the sales end of HP3000's, I don't know how readily available
these are, but I've heard from others outside of HP, that they are available.
They are probably readily available, like drivers for the printers.
They make life easier for simple things, at least. For example:
:FILE QUIZLIST;dev=xxxx;ENV=LJET4XD.LJETENV.SYS
will take your report and do 4 pages/page of paper and duplex the output too.
Sincerely,
Mary Cotton
-----Original Message-----
From: Dave Knispel [mailto:dave.knispel@frequencymarketing.com]
Sent: Wednesday, August 30, 2000 1:06 PM
To: 'powerh-l@lists.swau.edu'
Subject: Re: Compressed Text
Below is what we do here. We have this in a file that we "USE" inside Quiz.
;Following are escape sequences for printer controls...
DEFINE escape-i INTEGER*2 = 27
DEFINE escape-c CHARACTER*2 = CHARACTER(escape-i)
DEFINE cpi-10 CHARACTER*10 = escape-c[2:1] + "(s10H "
DEFINE cpi-12 CHARACTER*10 = escape-c[2:1] + "(s12H "
DEFINE cpi-16 CHARACTER*10 = escape-c[2:1] + "(s16.7H "
DEFINE cpi-20 CHARACTER*10 = escape-c[2:1] + "(s20H "
DEFINE high-dens CHARACTER*10 = escape-c[2:1] + "(s1Q "
DEFINE stnd-dens CHARACTER*10 = escape-c[2:1] + "(s0Q "
DEFINE stnd-mode CHARACTER*10 = escape-c[2:1] + "&k0S "
DEFINE comp-mode CHARACTER*10 = escape-c[2:1] + "&k2S "
DEFINE expd-mode CHARACTER*10 = escape-C[2:1] + "&k8S "
DEFINE lpi-6 CHARACTER*10 = escape-c[2:1] + "&l6D "
DEFINE lpi-8 CHARACTER*10 = escape-c[2:1] + "&l8D "
DEFINE displayon CHARACTER*10 = escape-c[2:1] + "Y "
DEFINE displayof CHARACTER*10 = escape-c[2:1] + "Z "
DEFINE perf-sknf CHARACTER*10 = escape-c[2:1] + "&l1L "
;added codes for laserjet printer
DEFINE printer-reset CHAR*5 = escape-c[2:1] + "E "
DEFINE bold-on CHARACTER*5 = escape-c[2:1] + "(s3B"
DEFINE bold-off CHARACTER*5 = escape-c[2:1] + "(s0B"
DEFINE under-on CHARACTER*5 = escape-c[2:1] + "&d3D"
DEFINE under-off CHARACTER*5 = escape-c[2:1] + "&d@ "
DEFINE portrait CHARACTER*5 = escape-c[2:1] + "&l0O"
DEFINE landscape CHARACTER*5 = escape-c[2:1] + "&l1O"
DEFINE upperpapr CHARACTER*5 = escape-c[2:1] + "&l1H"
DEFINE lowerpapr CHARACTER*5 = escape-c[2:1] + "&l4H"
DEFINE letter CHARACTER*5 = escape-c[2:1] + "&l2A"
DEFINE legal CHARACTER*5 = escape-c[2:1] + "&l3A"
DEFINE line84pg CHARACTER*6 = escape-c[2:1] + "&l84P"
DEFINE font0239 CHARACTER*7 = escape-c[2:1] + "(0239X"
DEFINE font3015 CHARACTER*7 = escape-c[2:1] + "(3015X"
DEF ESC CHAR*1 = ESCAPE-C[2:1]
DEFINE font02 CHARACTER*26 = &
esc + "&l10" + esc + "(8u" + esc + "(s0p12h10v0s3b8T"
DEFINE font05 CHARACTER*26 = &
esc + "&l10" + esc + "(8u" + esc + "(s0p16.67h8.5v0s3b0T"
DEFINE font10 CHARACTER*26 = &
esc + "&l10" + esc + "(8u" + esc + "(s0p15h8.5v0s3b0T"
DEFINE SIMPLEX CHARACTER*5 = ESC + "&l0S"
DEFINE DUPLEX-LONG-EDGE CHARACTER*5 = ESC + "&l1S"
DEFINE DUPLEX-SHORT-EDGE CHARACTER*5 = ESC + "&l2S"
David Knispel
dave.knispel@frequencymarketing.com <mailto:dave.knispel@frequencymarketing.com>
Phone: 513-248-5029
Fax: 513-248-2672
----- Original Message -----
From: Mike Palandri < palandri@eug4ja.lane.edu <mailto:palandri@eug4ja.lane.edu>
>
To: Grace, Jim < graceji@ccac-casc.on.ca <mailto:graceji@ccac-casc.on.ca> >;
'powerh-l@lists.swau.edu' <mailto:'powerh-l@lists.swau.edu'> <
powerh-l@sphere.swau.edu <mailto:powerh-l@sphere.swau.edu> >
Sent: Wednesday, August 30, 2000 4:01 PM
Subject: Re: Compressed Text
> When I worked on an HP 3000, we used a cobol program to send the appropriate
control codes to the laser printer, then fcopied the report from a disk text
file to the printer. Here's a sample command file. I can post the cobol code
if you want, it is only about 360 lines.
>
>
> FILE SCHED=OIR0103A;TEMP
> FILE HARD;REC=-130
> LCC0001.RUN;INFO="RS,LA,8L,PL60,CO,MW08"
> FCOPY FROM=*SCHED;TO=$HARD > $NULL
> LCC0001.RUN;INFO="RS"
>
>
>
> At 02:33 PM 08/30/2000 -0400, Grace, Jim wrote:
> >I am trying to compress the text in a quiz report to print out on an HP
> >laser jet 8000N. I am trouble getting the on and off codes to work. I have
> >an example from Cognos on how to do it. Has anyone been successful with
> >this.
> >
> >Please let me know.
> >
> >Thanks
> >
> >The example below should cause a compressed font to be used by th printer.
> >
> >Quiz
> >
> >>DEF escn int*1 = 27;
> >>def esc char*1 = char(escn)[2:1]; this will send the Esc sequence to the
> >printer
> >>def COMPRESSION char*2 = esc + "<on code>"; see printer manual for this
> >code
> >>def COMPRESSOFF char*2 = esc + "<off code>"; see printer manual for this
> >code
> >>REPORT COMPRESSION "Compressed" COMPRESSOFF "NOT Compressed"
> >
> >If this works, the string,"compressed", should appear in small fonts.
> >
> >If it does not then the escape sequence code selected is wrong for the
> >printer. Each printer has its own set of printer control code sequences.
> >Refer to your printer manual or call the manufacturer/vendor.
> >
> >If it is necessary to have the page headings compressed, add the COMPRESSION
> >item to the beginning of the page heading, or to the initial page heading.
> >Turn off the compression setting sent to the printer, by reporting the
> >COMPRESSOFF item in the final footing of the report.
> >
> >= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
> >Subscribe: "subscribe powerh-l" in message body to majordomo@lists.swau.edu
<mailto:majordomo@lists.swau.edu>
> >Unsubscribe: "unsubscribe powerh-l" in message to majordomo@lists.swau.edu
<mailto:majordomo@lists.swau.edu>
> >This list is closed, thus to post to the list, you must be a subscriber.
> >
>
> Mike
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Subscribe: "subscribe powerh-l" in message body to majordomo@lists.swau.edu
Unsubscribe: "unsubscribe powerh-l" in message to majordomo@lists.swau.edu
This list is closed, thus to post to the list, you must be a subscriber.