Multiline Heading (OpenInsight 16-Bit Specific)
At 28 NOV 2007 09:21:40AM Waheed Rehman wrote:
Is there any option to print Multiline Heading for printed reports.
The issue is, how can we apply different Font/Size to different part of heading. The parts of heading are:
Left, Center, Right (1st line)
Left, Center, Right (2nd line)
Left, Center, Right (3rd line)
and so on…
Thanks
At 28 NOV 2007 11:13AM [url=http://www.sprezzatura.com]The Sprezzatura Group[/url] wrote:
How are you printing them?
World leaders in all things RevSoft
At 28 NOV 2007 12:17PM Waheed Rehman wrote:
Here is a sample code which I am trying:
* ———————————————————–
* print first page header
* Using CONTROL just to seting first page heading by
* applying ADDTABLE
*
X= SET_PRINTER( 'CONTROL',
, ' ', "Printed on 'DL'", FOOTER_FONT ) * COL_HEAD=
COL_JUST= ('+': HEADER_PART_WIDTH)
COL_BODY= HEADER_TEXT: @VM: HEADER_TEXT: @VM: HEADER_TEXT
COL_HEADER_SHADE=
COL_BODY_SHADE =
*
* print header's first line with HEADER_FONT
*
X= SET_PRINTER( 'FONT', HEADER_FONT )
X= SET_PRINTER( 'ADDTABLE', COL_JUST, COL_HEAD, COL_BODY, COL_HEADER_SHADE, COL_BODY_SHADE, NO_APPEND, TB_NONE )
*
* prepare header's 2nd line and onward for printing
* with different font
*
COL_BODY=
FOR I=2 TO TTL_HEADER_TEXT COL_BODY= HEADER_TEXT: @VM: HEADER_TEXT: @VM: HEADER_TEXT NEXT I * X= SET_PRINTER( 'FONT', SUB_HEADER_FONT ) X= SET_PRINTER( 'ADDTABLE', COL_JUST, COL_HEAD, COL_BODY, COL_HEADER_SHADE, COL_BODY_SHADE, APPEND_TABLE, TB_NONE ) X= SET_PRINTER( 'TEXT', blank_line ) * COL_JUST= 'L': @FM: 'C': @FM: 'R' COL_LEN=HEADER_PART_WIDTH: @FM: HEADER_PART_WIDTH: @FM: HEADER_PART_WIDTH COL_HEADER=
*
X= SET_PRINTER( 'FONTHEADFOOT', SUB_HEADER_FONT, SUB_FOOTER_FONT )
X= SET_PRINTER( 'HEADER', HEADER_TEXT, COL_LEN, COL_HEADER, COL_JUST )
X= SET_PRINTER( 'FOOTER', FOOTER_TEXT, '' )
*
* ———— end of progam —————–
As far as 1st page is concerned, it is fine. But the problem starts from 2nd page and onward.