<quote who="Hari T. K. Varma"> > Hi all, > > I need to fire a print from UniVerse Basic where I want to > change the Font size. Is there any function available in UniVerse to do > the same?
I use an include file, but this is for PCL codes directed at HP-compliant printers (emulate PCL5/PCL6). Here's the include (which includes some Okidata laser codes, too): 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 Point 0010 BIG15 = ESC:"(s1p15v0s4B" ; *Proportional, Bold, 15 Point 0011 BIG12 = ESC:"(s1p12v0s4B" ; *Proportional, Bold, 12 Point 0012 BIG10 = ESC:"(s1p10v0s4B" ; *Proportional, Bold, 10 Point 0013 BIG8 = ESC:"(s1p8v0s4B" ; *Proportional, Bold, 8 Point 0014 BIG7 = ESC:"(s1p7v0s4B" ; *Proportional, Bold, 7 Point 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 Print 0026 RESET = ESC:"E" ; *Printer Reset 0027 SKPER = ESC:"&l0L" ; *0 Disable Perforation Skip 0028 DBLNG = ESC:"&l1S" ; *Duplex book 0029 DBLSH = ESC:'&l2S' ; *Duplex tablet 0030 DBLOFF = ESC:"&l0S" ; *Duplex off 0031 LANDSCAPE = ESC:"&l1O" ; *Landscape on 0032 LANDOFF = ESC:"&l0O" ; *Landscape off 0033 ! To set the length of a page, send ESC:"&l#P" where # = 60,56... 0034 ! To enter Postscript mode (ESC:"E" to return to PCL): 0035 POSTSCRIPT1 = ESC:"%-12345X" 0036 POSTSCRIPT2 = '@PJL ENTER LANGUAGE = PostScript' 0037 ! Okidata settings: OKCMP = compressed 0038 OKI = ESC:'(s6t17h4B':LPIN8 ; * condensed fixed 0039 OKNORM = ESC:'&l0O':ESC:'(8U':ESC:'(s0p10h12v0b3T':ESC:'(8Q' 0040 OKCMP = ESC:'&l0o8D':ESC:'(8U':ESC:'(s0p16.66h8.5v0s0b0T':ESC:'(8Q' To use these in mvBASIC, you could do: printer close printer on execute 'setptr ,,,,,,nhead,nfmt,brief,at LP0 ( or execute 'setptr ,,,,,nhead,nfmt,brief,form FORMNAME if you use forms rather than printer names for the setptr command) printer on print CHR15: print "DATA TO CHANGE FONT ON" print CHR10: print "BACK TO PREVIOUS/DEFAULT FONT" printer off printer close end Good luck and hope this helps. Karl > > Thanks in Advance, > > > Regards > Harivarma > ------- > u2-users mailing list > u2-users@listserver.u2ug.org > To unsubscribe please visit http://listserver.u2ug.org/ > -- Karl L. Pearson Director of IT, ATS Industrial Supply Direct: 801-978-4429 Toll-free: 800-789-9300 1,29 Fax: 801-972-3888 http://www.atsindustrial.com [EMAIL PROTECTED] ------- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
