> From [EMAIL PROTECTED] Sat Feb 24 11:04:10 2001
> Date: Sat, 24 Feb 2001 12:16:26 -0600
> From: anil <[EMAIL PROTECTED]>
> To: lprng <[EMAIL PROTECTED]>
> Subject: LPRng: force Enhance mode in Epson 570 ESC/P2
>
> Hi all,
>
> I have old sco server forwards print job to lprng-3.7.4-1 running on
> linux-2.2.18. Then lprng forwards that job to Epson-570 text printer
> attached to NT-4.0 workstation. On NT workstation I share printer as
> EPSON570. The print job has 132 charcters on line. prints to 8.5 width
> page. I want enhance mode on on the printer to get this print out to
> look good. But lprng over rides that printer seetting and prints big
> type. I tried to set up printer as generic text printer, lprng does not
> overrides the enhace mode but at 80 columns (3/4 of page) it changes to
> next line. On the printer auto line feed is off.
>
> I guess my problem is that I cannot reset the printer and set it to
> enhace mode just before the print job.
> This worked fine on older version of LPRng. I have been using LPRng for
> few years.
>
> any help is greatly appriciated.
>
> regards <[:-)]>
>
> anil
>
> this is my printcap
>
> printer8:
> :bk:sh:fq:pw=132:px=2880:mx=0
> :server
> :if=/usr/libexec/filters/wesF1
> :sd=/var/spool/lpd/lp5
> :lp=printer17@localhost
> :lpd_bounce
> Printer17:
> :sd=/var/spool/lpd/lp1
> :[EMAIL PROTECTED]
>
>
> =========my filter=======================
>
> #!/usr/bin/perl
> #
>
>
> #print"\033\@"; # Reset printer to default settings <=== does
> not work this prints as text
>
> do { # Create random filename for tempfile
> $tempfile = "/var/spool/lpd/lp5/txtfilter" . (int(rand(4000)) + 1000);
> } while (-e $tempfile);
>
> open (TEMP, "+>$tempfile") || die "Could not create $tempfile : $!\n";
>
> #seek (TEMP,0,0);
> #print TEMP "\033\@\15"; <======does not work, this prints on the
> document
>
> while (defined($_ = <STDIN>)) {
> print TEMP $_;
> }
>
> seek (TEMP,0,0);
> print TEMP "\27\64\15"; <======does not work, this prints on the
> document
>
> while (defined($_ = <TEMP>)) {
> print;
> $lastline = $_;
> }
>
>
> close (TEMP);
> #unlink ($tempfile) || die "Unable to delete $tempfile : $!\n";
>
>
> Kind of interpretation of hexdump of print job from printer. I am not
> sure about this. I assume that every print command starts with ==>1B<==.
>
> 1B 40 initialize printer
> IB 28 47 01 00 01 set graphics mode
> 1B 28 55 01 00 0A define unit spacing
> 1B 72 00 do not have clue
> IB 19 30 set 1/8 line spacing
> IB 28 43 02 00 78 0F set page length
> 1B 28 63 04 00 00 00 78 0F do have clue
> IB 28 56 02 00 00 00 0D 00 00 set absolute vertical print position
> 1B 2E 01 14 14 18 58 00+lots of hex - print raster graphics
> 1B 28 56 02 00 30 00 set absolute vertical print position
>
> then print job data, I guess. These lines are generated from lprng.
Ummm... I am going to be kind of stupid here, but did you check to make
sure that this is REALLY what is being sent from the
printer17 queue (by the way, that should be printer17, not Printer17...)
#> lpc stop printer17
#> lpr -Pprinter8 some_file_to_print
#> lpq -Pprinter17
#> ls /var/spool/lp1
Now find the job file (dfA...) and examine it.
If this job contains all of the right control things, then I have
to ask the following: did you change the NT print setup?
Patrick
-----------------------------------------------------------------------------
YOU MUST BE A LIST MEMBER IN ORDER TO POST TO THE LPRNG MAILING LIST
The address you post from MUST be your subscription address
If you need help, send email to [EMAIL PROTECTED] (or lprng-requests
or lprng-digest-requests) with the word 'help' in the body. For the impatient,
to subscribe to a list with name LIST, send mail to [EMAIL PROTECTED]
with: | example:
subscribe LIST <mailaddr> | subscribe lprng-digest [EMAIL PROTECTED]
unsubscribe LIST <mailaddr> | unsubscribe lprng [EMAIL PROTECTED]
If you have major problems, send email to [EMAIL PROTECTED] with the word
LPRNGLIST in the SUBJECT line.
-----------------------------------------------------------------------------
