Thanks!!! -----Original Message----- From: Bruce Nichol [mailto:[EMAIL PROTECTED] Sent: Tuesday, September 20, 2005 7:11 PM To: [email protected] Subject: Re: [U2] LPTR / SETPTR / print from a specific tray
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: '[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/ > > >-- >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 [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/
