In OI7.01 I get a weird interaction in a report I am building. I want certain text items to display on all pages. In the program that follows, the position of the fixed items changes after the PAGEBREAK command if the FONT command is used, but comment it out and the fixed items retain their position after the PAGEBREAK. Any ideas on what causes this interaction?

Subroutine Header_Test( dummy)

$Insert Std_Declare

Title=Sales Order'

Title=Title: ' - ': 'sales-orders'

Orientation=0 ;* Portrait

PrintSetup=3: @vm: 3: @vm: 0: @vm: 0 :@vm: 1: @vm: 1: @fm: -2

PrinterName='

PageInfo=.25:@fm:1.5:@fm:.25:@fm:.5 ;* margins

x=Set_Printer( 'START32')

if x=1 then

x=Set_Printer("INIT", 'Sales Order', Title, pageinfo, Orientation, PrintSetup, PrinterName)

if x=1 then

	bigfont=Times New Roman":@FM:24:@FM:"L":@FM:0

	Set_Printer("FONTHEADFOOT", bigfont)

	HeaderFmt=@vm: 'Company Name': @fm: @fm

	tnr24b=Times New Roman":@FM:24:@FM:"C":@FM:1

	cn12=Courier New":@FM:12:@FM:"C":@FM:0

	cn12i=Courier New":@FM:12:@FM:"C":@FM:0: @FM: 1

	Set_Printer( 'HEADER', HeaderFmt)

	Set_Printer( 'TEXTXY', 'SALES ORDER', 2.8: @fm: -.85, tnr24b, 1)

	Set_Printer( 'TEXTXY', oconv( date(), 'D2/'), 7.1: @fm: 0, cn12, 1)

	Set_Printer( 'TEXTXY', oconv( time(), 'MTH'), 7.1: @fm: .2, cn12, 1)

	Set_Printer( 'TEXTXY', 'Order #', 0: @fm: .3, cn12i, 1)

• When I comment out the FONT line the TEXTXY items stay in place on page 2,

• but when uncommented it causes the positioning to be lost after

• the PAGEBREAK

	x=Set_Printer( 'FONT', tnr24b, '')

	Set_Printer( 'TEXTXY', 123456, 1: @fm: .3, tnr24b, 1)

	Set_Printer( 'PAGEBREAK')

end

x=Set_Printer( 'TERM',1)

end

x=Set_Printer( 'STOP32')

return

Thanks,

Ron Hollar

See readme.wri for 7.0 & 7.01 release.

The command x=Set_Printer( 'START32') and its corresponding 'STOP32' is no longer supported (redundant). For a first, do away with this.

Richard Bright

BrightIdeas New Zealand

Richard,

You are right about START32 and STOP32, amazing the stuff you can find in the readme. It made no difference in this case. The workaround I found is to clear the font before the page break with this code:

x=Set_Printer( 'FONT', , )

Set_Printer( 'PAGEBREAK')

Now the TEXTXY items stay in place on all pages.

This has been fixed in 7.1 as of 10/11/04.

View this thread on the forum...