We did a similar thing. We had some basic routines that we called that set everything up. Print.portrait and print.landscape were the two most common.
For the "English" reports we even updated the list and sort verbs to call the routines (we renamed list and sort, made list/sort basic routines that did what we needed with the printers and then called the renamed versions). It worked well. Hth Colin Alfke currently LA -----Original Message----- From: Karl L Pearson [mailto:[EMAIL PROTECTED] Sent: Wednesday, October 06, 2004 8:10 AM To: u2-users Subject: Re: [U2] Fancy Printer I use initiation strings with my PCL printers all the time. How? We assign the printers by running a VOC SETPTR PAragraph: 0001 PA Used For HP 4200TN In Computer Room 0002 SETPTR 0,132,60,1,3,1,BRIEF,NFMT,NHEAD,AT CRHP,INFORM 0004 RUN BP SET.HPLASER CHR16 The SET.HPLASER program sends, in the above case, CHR16, a variable holding ESC:"(s0p16H". It's not a very complex program. If you want a copy, email me off-list. You can string one or several of them, too. Here's a short list of PCL codes I use regularly: 0001 *(HP.LASER) - HP LASER CODES 0002 * 0003 ESC = CHAR(27) ; *Escape Character 0004 SYMSET = ESC:"(#10U" ; *IBM Symbol Set 0005 TMG = ESC:"&l0E" ; *Top Margin 0006 LPIN12 = ESC:"&l12D" ; *12 Lines Per Inch 0007 LPIN6 = ESC:"&l6D" ; *6 Lines Per Inch 0008 LPIN8 = ESC:"&l8D" ; *8 Lines Per Inch 0009 BIG20 = ESC:"(s1p20v0s4B" ; *Proportional, Bold, 20 Points 0010 BIG15 = ESC:"(s1p15v0s4B" ; *Proportional, Bold, 15 PointS 0011 BIG12 = ESC:"(s1p12v0s4B" ; *Proportional, Bold, 12 Points 0012 BIG10 = ESC:"(s1p10v0s4B" ; *Proportional, Bold, 10 Points 0013 BIG8 = ESC:"(s1p8v0s4B" ; *Proportional, Bold, 8 Points 0014 BIG7 = ESC:"(s1p7v0s4B" ; *Proportional, Bold, 7 Points 0015 BIG6 = ESC:"(s0p6h4B" ; *Fixed Bold 6cpi 0016 BOLD = ESC:"(s4B" ; *Bold Print On 0017 BOLDOFF = ESC:"(s0B" ; *Bold Print Off 0018 CHR10 = ESC:"(s0p10H" ; *10 Char, Normal Print 0019 CHR12 = ESC:"(s0p12H" ; *12 Character Print 0020 CHR14 = ESC:"(s0p14H" ; *14 Character Print 0021 CHR15 = ESC:"(s0p15H" ; *15 Character Print 0022 CHR16 = ESC:"(s0p16H" ; *16 Character Print 0023 CHR17 = ESC:"(s0p17H" ; *17 Character Print 0024 CHR175 = ESC:"(s0p17.5H" ; *17.5 Character Print 0025 CHR20 = ESC:"(s0p20H" ; *20 Character 0026 RESET = ESC:"E" ; *Printer Reset 0027 SKPER = ESC:"&l0L" ; *0 Disable Perforation Skip 0034 DBLNG = ESC:"&l1S" ; *Duplex book 0035 DBLSH = ESC:'&l2S' ; *Duplex tablet 0036 DBLOFF = ESC:"&l0S" ; *Duplex off 0037 LANDSCAPE = ESC:"&l1O" ; *Landscape on 0038 LANDOFF = ESC:"&l0O" ; *Landscape off 0039 ! To set length of page, send ESC:"&l#P" where # = 60,56... 0040 ! For Postscript mode (ESC:"E" to return to PCL): 0041 POSTSCRIPT1 = ESC:"%-12345X" 0042 POSTSCRIPT2 = '@PJL ENTER LANGUAGE = PostScript' 0043 OKI = ESC:'(s6t17h4B':LPIN8 ; * condensed fixed Hope this helps. Karl On Wed, 2004-10-06 at 06:29, Mark Johnson wrote: > That's roughly the approach I've been taking. The problem is to > interject these lines into the dozens, maybe hundreds of reports > either in English or Basic that are scattered throughout the procs in > the application. Too bad you cannot have an 'initiation string' that > hayes modems had to preceed the output. > > thanks. ------- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/