One of the programs we use has this line of code in it:
MAN.PAPER.TRAY = CHAR(27):"&l2G" ; * SELECT THE MANUAL SOURCE TRAY
It then just does a PRINT MAN.PAPER.TRAY to switch before printing a
preprinted form. One of the online references I use, and like, has the
command you need. Just be sure to change the "1" to which ever tray you
want. Here it is:
http://printers.necsam.com/public/printers/pclcodes/pcl5hp.htm
Hope that helps.
BobW
> -----Original Message-----
> From: [EMAIL PROTECTED] [mailto:owner-u2-
> [EMAIL PROTECTED] On Behalf Of Burwell, Edward
> Sent: Tuesday, September 20, 2005 3:22 PM
> To: '[email protected]'
> Subject: [U2] LPTR / SETPTR / print from a specific tray
>
> Hey Paul, Do you (or anyone else) know how to tell a LaserJet to draw
> paper
> from a specific tray?
>
> -----Original Message-----
> From: Paul Trebbien [mailto:[EMAIL PROTECTED]
> Sent: Tuesday, September 20, 2005 5:34 PM
> To: '[email protected]'
> 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
> [email protected]
> To unsubscribe please visit http://listserver.u2ug.org/
> -------
> u2-users mailing list
> [email protected]
> 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
> [email protected]
> To unsubscribe please visit http://listserver.u2ug.org/
-------
u2-users mailing list
[email protected]
To unsubscribe please visit http://listserver.u2ug.org/
