Dual column report FPD2.6a DOS

[PCSMITHS]

Any easy way to print two columns 38 chr each using Foxpro 2.6a DOS Report Wizard?

Using sorted database with single field 38 chr.

 

[dgrewe]

list off field(1),field(2) to print

David W. Grewe Dave

 

[PCSMITHS]

As I had mentioned, it has only one field so field(1), field(2) will not work and I would like to use the report wizard.

 

[dgrewe]

Sorry , Did not have my first cup of coffeee before answering and failed to read your question all the way, My bad, Sorry.

Yes there is a way, I do not have a copy of 2.6 at work, but I can give you the answer when I get home if no one else steps in. There is a option in the report generator for columns. You can have the data print left to right or top to bottom. Just can not remember where it is of the top of my head.

If all else fails, Use the Label Designer. Make a label 4 inches wide and 11 inches long 2 per sheet.


David W. Grewe Dave

 

[dgrewe]

Coffee starting to work, The 11 inch long will not work, It would have to be 1/6 of an inch long (just enought room for the field info.

David W. Grewe Dave

 

[PCSMITHS]

Do not wish to print rec 1 in first column, rec 2 in 2nd column, want column 1 - rec's 1-30 and column 2 - rec's 31 - 59.

Total recc() may be 5 to 100.

 

[pthalacker]

I believe the easiest way to do this would be to create a table with the data already arranged the way you want it to appear in the report...two fields, one for each column.

pamela

 

[PCSMITHS]

That is what I had just done, divided it in half at a break point and wrote the rest to the 2nd field.

Thank ya'all

 

[tesar]

pcsmiths,
try something as:

use myfile alias first
halfrec = ceil(recc()/2)
copy to sec for recno() > halfrec
sele 0
use sec
sele first
scan
repl field(2) with sec.field(1)
skip in sec
if eof("sec")
exit
endif
endscan
sele first
list off field(1),field(2) to print

(similarly for more columns)
Tesar

 

[NasibKalsi]

Or you can just modify the structure of your main table and create a field name toPrint c(38)

* then
replace toprint with col1 for recno() < 50
replace toprint with col2 for recno() >=50

* then
do report form report1 &&prints only field TOPRINT
* or
list off toprint