Can anyone help me with the rbasic syntax to send printer

escape sequences. Thanks for help in advance.

Tim Ross

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)"

Symmetry Info

Ray Chan ~ Symmetry Info

Another example:

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"

The Sprezzatura Group

World Leaders in all things RevSoft

View this thread on the forum...