Goo'day,
At 18:22 20/09/05 -0400, you wrote:
Hey Paul, Do you (or anyone else) know how to tell a LaserJet to draw paper
from a specific tray?
We've been using:
0040: LOWER.TRAY = ESC:'&l5H'
0041: UPPER.TRAY = ESC:'&l1H'
0042: *
(that's a lower-case "L" in there....)
HTH, in some way.....
-----Original Message-----
From: Paul Trebbien [mailto:[EMAIL PROTECTED]
Sent: Tuesday, September 20, 2005 5:34 PM
To: 'u2-users@listserver.u2ug.org'
Subject: RE: [U2] LPTR / SETPTR / landscape orientation example
Hi Andy,
Looks like several posts, did you resolve this?
I saw a couple of suggestions in the emails, here's my 2 cents for a
program that will set the setting for an HP Laserjet. Note, we have a
printer definitions files where you enter the 'hex' codes for the escape
sequences to setup the printer and a hex escape sequence to return the
printer to the default settings. This is very nice as the user logs on he
has a default printer, he can change the printer (from a menu), or a process
can be defined to use only the specified printer. Anyway, when user prints
the 'software' know which printer is to be used and sends the 'setup' escape
sequence and when the print job is complete the 'software' sends the 'reset'
escape sequence to the printer.
Here is an example program for this and at the end a list of hex
commands for a few HP Laserjet and Epson LQ printers - these are old lists
and hopefully contain the correct codes.
** PROGRAM : SETUP.HP.LASERJET
** PURPOSE : Send Escape Codes to HP LaserJet
**
INPUT ANS
**
GOT.CODE=0
BEGIN CASE
CASE ANS="L" ; CODE="1B266C314F" ; GOT.CODE=1 ;* Set Landscape mode
CASE ANS="P" ; CODE="1B266C304F" ; GOT.CODE=1 ;* Set Portrait mode
CASE ANS="R" ; CODE="1B45" ; GOT.CODE=1 ;* Reset to Default
CASE 1
END CASE
IF GOT.CODE THEN
PRINT ICONV(CODE,'MX'):
END
*
END
HP LASERJET
HEX COMMAND: DESCRIPTION:
1B45 Reset
1B266C314F Landscape
1B266C304F Portrait
1B283855 HP Roman8
1B28733070 Fixed Spacing
31302E303068 10.00 Characters per Inch
31322E3076 12.0 Point Size
3073 Upright Style
3062 Normal Stroke Weight
3354 Courier Typeface
1B266C3644 6 Lines per Inch
1B266C3145 1 line Top Margin
1B266C343946 49 lines Text Length
1B266C363446 64 lines Text Length
EPSON LQ and compatible printers
HEX COMMAND: DESCRIPTION:
Here is a breakdown of what each of these codes mean:
1B40 ====> RESET/INITIALIZE PRINTER
1B50 ====> SELECT PICA PRINT (10 CPI)
1B0F ====> SELECT COMPRESSED PRINT (17 CPI)
1B7830 ==> SELECT DRAFT FONT
1B7831 ==> SELECT NLQ (NEAR-LETTER-QUALITY) FONT
1B4315 ==> SET 21 LINES/PAGE (WHERE 15 HEX = 21 DEC)
1B4316 ==> SET 22 LINES/PAGE (WHERE 16 HEX = 22 DEC)
1B4321 ==> SET 33 LINES/PAGE (WHERE 21 HEX = 33 DEC)
1B432A ==> SET 42 LINES/PAGE (WHERE 2A HEX = 42 DEC)
1B4333 ==> SET 51 LINES/PAGE (WHERE 33 HEX = 51 DEC)
1B433C ==> SET 60 LINES/PAGE (WHERE 3C HEX = 60 DEC)
1B4342 ==> SET 66 LINES/PAGE (WHERE 42 HEX = 66 DEC)
1B4F ====> DISABLE SKIP OVER PERFORATION MODE
0D ======> CARRIAGE RETURN (FLUSH BUFFER, PROCESS COMMAND)
An example of a program to set an HP Laserjet printer to Landscape and then
to Reset printer back:
> Paul Trebbien
> Kore Technologies, Senior Support Tech.
> "Solutions that work. People who care."
> V 858.678.0030 F 858.300.2600 W koretech.com
>
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Andy Pflueger
Sent: Monday, September 19, 2005 5:26 AM
To: U2 User Group Mailing List
Subject: [U2] LPTR / SETPTR / landscape orientation example
Hi gang,
I'm in the process of tweaking one of our reports which use a "LIST ...
LPTR" command line to spool the output to the default printer. However, the
results are too wide for portrait orientation and was wanting to find a way
to set the orientation with SETPTR prior to the execution of the LIST
statement.
I tried to use the following statement but that doesn't seem to change the
default orientation of the printer:
UDTEXECUTE 'SETPTR 0,,,,,1,,"Orientation=LANDSCAPE"' CAPTURING ASPMSG
More code pasted below:
095: *
096: *-- SELECTION
097: *
098: PRINT @(0,21):@(-4):"Sort/Select in progress..."
099: START.DATE=OCONV(START.DATE,'D2/')
100: END.DATE=OCONV(END.DATE,'D2/')
101: INIT.CMD='SELECT JOB.MATL WITH'
102: IF START.PERIOD # END.PERIOD THEN
103: INIT.CMD := ' CONO_WPER GE "':CONO:START.PERIOD:'" AND WITH CONO_WPER
LE "':CONO:END.PERIOD:'"'
104: END ELSE
105: INIT.CMD := ' CONO_WPER EQ "':CONO:START.PERIOD:'"'
106: END
107: UDTEXECUTE INIT.CMD CAPTURING ASPMSG
108: *
109: UDTEXECUTE 'SETPTR 0,,,,,1,,"Orientation=LANDSCAPE"' CAPTURING ASPMSG
110: CMD = 'LIST JOB.MATL BY CTR BY JOB BY PERIOD BY DATE BY TRANS WITH'
111: IF DEPT.IN <http://DEPT.IN> # 'ALL' THEN
112: CMD:=' JMT.DEPT = "':DEPT.IN:'"'
113: IF DEPT.IN <http://DEPT.IN> = '23' THEN
114: CMD:=' AND WITH GJOB.CHECK # ""'
115: CMD:=' AND WITH P.QTY > "0"'
116: END
117: END
118: IF START.DATE NE END.DATE THEN
119: CMD:=' AND WITH DATE GE "':START.DATE:'" AND WITH DATE LE "':END.DATE:
'"'
120: END ELSE
121: CMD:=' AND WITH DATE EQ "':START.DATE:'"'
122: END
123: IF BEG.JOB.NUM # "ALL" THEN
124: CMD:=' AND WITH JOB GE "':BEG.JOB.NUM:'" AND WITH JOB LE "':
END.JOB.NUM:'"'
125: END
126: CMD:=' ID-SUPP'
127: IF DEPT.IN <http://DEPT.IN> = 'ALL' THEN
128: CMD:=' BREAK-ON NP-DIV.DESC "':"'V'":'"'
129: CMD:=' BREAK-ON NP-JOB.DESC "':"'V'":'"'
130: END
131: CMD:=' JOB PROD JMT.R.S.ID <http://JMT.R.S.ID> WHSE CTR TYP CUST TRANS
PERIOD DATE RC.JOB RC.TRAN'
132: CMD:=' TOTAL P.QTY TOTAL S.QTY UM TOTAL MATL.COST TOTAL SALE'
133: CMD:=' HEADING "':"'TLC'":' JOB MATERIAL HISTORY REPORT ':"'LC'"
134: CMD:=' PERIOD ':START.PERIOD:' THUR ':END.PERIOD:' - DATE ':START.DATE
135: CMD:=' THROUGH ':END.DATE:" 'L'":'" GRAND-TOTAL'
136: CMD:=' " TOTAL FOR COMPANY - ':"'U'":'"'
137: CMD:=' LPTR '
138: EXECUTE CMD CAPTURING ERRMSG
I've checked numerous manuals and reference materials I have readily
available to me and can't seem to find a decent example of what I'm trying
to accomplish. I know I could re-write this report to not use the "LIST ...
LPTR" statement but instead use PRINTER ON, PRINT, and PRINTER OFF
commands...wanted to try avoid having to re-write the report at the present
time though.
TIA,
Andy
-------
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
-------
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
______________________________________________________________________
This e-mail has been scanned by MCI Managed Email Content Service, using
Skeptic(tm) technology powered by MessageLabs. For more information on MCI's
Managed Email Content Service, visit http://www.mci.com.
______________________________________________________________________
______________________________________________________________________
This e-mail has been scanned by MCI Managed Email Content Service, using
Skeptic(tm) technology powered by MessageLabs. For more information on
MCI's Managed Email Content Service, visit http://www.mci.com.
______________________________________________________________________
-------
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
--
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.344 / Virus Database: 267.11.3/107 - Release Date: 20/09/05
--
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.344 / Virus Database: 267.11.3/107 - Release Date: 20/09/05
Regards,
Bruce Nichol
Talon Computer Services
ALBURY NSW 2640
Australia
http://www.taloncs.com.au
Tel: +61 (0)411149636
Fax: +61 (0)260232119
If it ain't broke, fix it till it is!
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.344 / Virus Database: 267.11.3/107 - Release Date: 20/09/05
-------
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/