{{tag>category:"AREV Specific"}}

[[https://www.revelation.com/|Sign up on the Revelation Software website to have access to the most current content, and to be able to ask questions and get answers from the Revelation community]]


==== RBASIC syntax to send printer escape sequences in DOS (AREV Specific) ====
=== At 06 JUN 2001 02:15:19PM T. Ross wrote: ===
 
 
<QUOTE>
Can anyone help me with the rbasic syntax to send printer

escape sequences. Thanks for help in advance.



Tim Ross
</QUOTE>
----

=== At 06 JUN 2001 05:34PM rayc@symmetryinfo.com wrote:  ===

<QUOTE>TRoss,



Below is an example of escape sequences for printing to a dot-matrix printer.



  * 

  TOP.PAGE%         =\0C\              ;* TOP OF PAGE (Hex)

  LF%               =\0A\              ;* LINE FEED

  COMPRESS%         =\0F\              ;* COMPRESS

  NORMAL%           =\12\              ;* CANCEL COMPRESS

  UNDERLINE%        =CHAR(27):CHAR(45):CHAR(1)

  CANCEL.UNDERLINE% =CHAR(27):CHAR(45):CHAR(0)

  BOLD%             =CHAR(27):CHAR(69)

  CANCEL.BOLD%      =CHAR(27):CHAR(70)

  ENHANCED%         =CHAR(27):CHAR(69)

  CANCEL.ENHANCED%  =CHAR(27):CHAR(70)



Given these print code sequence above you can then put the printer into compress mode by:



* SET TO COMPRESS MODE

PRINT COMPRESS% :



Hope this help. Also, I think if you do a search you may find other references, etc.





rayc@symmetryinfo.com onmouseover=window.status=imagine ...  ;return(true)"

[url=http://www.symmetryinfo.Com" onMouseOver=window.status=Imagine ... ' ;return(true)]Symmetry Info[/url]

Ray Chan ~ Symmetry Info

</QUOTE>

----

=== At 06 JUN 2001 09:17PM [url=http://www.sprezzatura.com]The Sprezzatura Group[/url] wrote:  ===

<QUOTE>Another example:




<code>

EXPENDABLE SUBROUTINE HP4050_PRINT

* Program to print to HP4050 laser. These codes were 
* taken from the list at www.hp.com and also the 
* diagnostic feature on the printer front panel

ESC= \1B\
RESET=ESC:'E'
ROMAN=ESC:'(8U'
COPIES.1=ESC:'&l1X'
A4=ESC:'&l5A'
PORTRAIT=ESC:'&l0O'
MARGIN2LINES=ESC:'&l2E'
TEXTPAGELENGTH=ESC:'&l66F'
PRINTFROMTRAY1=ESC:'&l4H'
PAGEFEED=CHAR(12)
PROPORTIONAL=ESC:'(s1P'
FIXED=ESC:'(s0P'
PRIMARYPITCH=ESC:'(s8H'
SECONDARYPITCH=ESC:'&k0S'
HEIGHT=ESC:"(s14V"
STYLE=ESC:'(s0S'
WEIGHT=ESC:'(s0B'
TXT= RESET:COPIES.1:PORTRAIT:A4:MARGIN2LINES
TXT := TEXTPAGELENGTH:PRINTFROMTRAY1:

PRINTER ON
* set up escape sequences
PRINT TXT:
* print some text
PRINT "Hi There":
PRINT PAGEFEED:
PRINT "Another Page":
PRINT PAGEFEED:
* always remember to turn printer off
PRINTER OFF
* we're on Windows NT, so push it along a little...
FLUSH
PERFORM "SUSPEND EXIT NUL"

</code>






[url=http://www.sprezzatura.com]The Sprezzatura Group[/url]

[i]World Leaders in all things RevSoft[/i]

[img]http://www.sprezzatura.com/zz.gif[/img]





</QUOTE>


[[https://www.revelation.com/revweb/oecgi4p.php/O4W_HANDOFF?DESTN=O4W_RUN_FORM&INQID=NONWORKS_READ&SUMMARY=1&KEY=BA4A4FDE304ED72F85256A63006447D3|View this thread on the  forum...]]