ramani/jimstarr - report ques. code incl.

[asm338s]

Here is the exact code that I am using:

--ON PAGE LINE 20 EJECT PAGE
--REPORT FORM ABC.FRX FOR nName NOCONSOLE TO FILE abc.txt ASCII

'next 3 lines puts a form layout on which the data is to be printed'

--theForm = FILETOSTR('abc.txt')
--Fputs(gnErrFile, CHR(27) + '*p8Y' + CHR(27)+ '*p4X')
--Fputs(gnErrFile,CHR(27)+ '&f3X')
--Fputs(gnErrFile, theForm)

'this prints the first 21 records(max. no.of lines on the form) on the first page with the form layout, and the rest on a regular paper without the layout. result stay the same, even if i don't use the ON PAGE COMMAND. What do I need to add to get the layout on the second page.

also refer to thread 184-111940
Thanks.

 

[asm338s]

any help appreciated. I am kind of stuck at this.

 

[jimstarr]

I'd create a UDF like:

FUNCTION layout
theForm = FILETOSTR('abc.txt')
Fputs(gnErrFile, CHR(27) + '*p8Y' + CHR(27)+ '*p4X')
Fputs(gnErrFile,CHR(27)+ '&f3X')
Fputs(gnErrFile, theForm)
RETURN ''

Then place layout() somewhere in the header band of your report.

Jim