The reason I'm using REPORT FORM is that I can easily select the font I need. I'm assuming that if iI do not save the printer environment, I can use the frx for any printer and it will print that font.
If I set up the font by send codes to the printer as you suggest, then I will have maintain a database of all my client's printers, will I not?
>>>To make a report print as in DOS, I would create a text file and then print the entire file with the command "???", thusly:
>>>
>>>
>>>lcPrinterSetupCodes = ...
>>>lcFileInRam = FileToStr("FileOnDisk.txt")
>>>??? lcPrinterSetupCodes + lcFileInRam
>>>
>>>
>>>My reporting class does something similar.
>>
>>Hilmar:
>>
>>I notice you are using chr(12) to do an eject.
>>
>>In the following program, the page does *not* eject. Why?
>>
>>
>>SET DEVICE TO file joe.txt
>>@ 1,1 say 'page1'
>>@ prow()+1, 1 say ' '
>>@ prow()+1, 1 say 'txet1'
>>
>>@ prow()+1, 1 say CHR(12)
>>
>>@ 1,1 say 'page2'
>>@ prow()+1, 1 say ' '
>>@ prow()+1, 1 say 'txet2'
>>
>>SET DEVICE TO screen
>>
>>
>>CREATE CURSOR joecursor ;
>> (cDetail c(250))
>>
>>APPEND FROM joe.txt TYPE SDF
>>
>>REPORT FORM \posprgs\common\RptLSX NOCONSOLE PREVIEW
>>
>>RETURN
>>
>>
>>Thanks,
>>
>>Yossi
>
>Using chr(12) with REPORT FORM command has no effect. If you you try to output file to printer using ??? it would work.