>Thanks, I was hoping someone had come up with an easy solution. I have hundreds of reports that are still in DOS, I guess they will stay there.
>
>Jack
>
>>I had to do the same thing and am still in the process of trying different options. So far, my VFP condensed reports are mostly using TIMES NEW ROMAN 8. When possible, I use the COURIER NEW, 8 for condensed if there is sufficient room in order to emulate the FPD26 appearance. I've found that font substitutions are different on just about every type of printer though which can be very surprising!
>>Tracy
>>
>>>I am trying to convert reports from FP DOS and cannot find a font that will still allow me to have 132 columns, be readable, and be able to be distributed to 300 clients. Any thoughts?



Hi there :-))

I was in simmilar situation couple of years ago, so hope this hints will
help you ease your pain.

I found my way out using printer driver GENERIC / TEXT ONLY and ledger 17/11
inch paper layout. It was fully compliant with 132 column reports in uncondensed mode. You can also use 80 column papper by setting pitch
to 17cpi prior to shutting report it will come again to 132 columns.

If you hv been using frx under FP2.6 then you will hv to transfer or rebuild them under VFP. They might need some modifications but they should work ok. You can forget about changing pitch as you are pleased (e.g. printing mixed bold/condensed etc) so some of reports you will hv to rebuild for sure.

In case of reports written in code using scan/endscan ?,??,??? ...Say etc
i suggest you getting familiar fith session class because that will let you
eventualy recode your old reports in pretty simmilar manner; Instead of shutting results directly on the papper you can store them in the tmp. cursor(s) and then report them out using simple frx.

e.g.

define class dos_report as session
output_frx='\..\reports\mylayout.frx'

procedure init
this.open_tables()

procedure open_tables
use ...
use ..
set relation ...

procedure create_output_cursors
create cursor rCursor1 ...
create cursor rCursor2 ...


procedure run_report
this.create_output_cursors
select mainTable
go top
scan
*?? table1.price*table2.price at ...
m.result=table1.price*table2.price &&instead
insert into rCursor1 from memvar
.
.
endscan
select rCursor1
report form (this.output_frx) to printer preview


enddefine

and of course some place else you will call this code like
local oReport
oReport=createobject('dos_report')
oReport.run_report()


This is meta code of course, so if you read between the lines,
I am sure you can do mutch better then this :)