Excellent! Thanks for the include code. Very helpful. ----- Original Message ----- From: <[EMAIL PROTECTED]> To: <u2-users@listserver.u2ug.org> Sent: Friday, June 03, 2005 11:53 AM Subject: Re: [U2] Printing from UniVerse
> <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/ ------- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/