Let's begin with the "linefeeds"; Have a < br > instead of the CHR(10)+CHR(13) (do a STRTRAN for it). For readability in the ascii, you can let the CHR(10)+CHR(13) in.
Further : The idea is nice, but it looks like an endless ancountering of things to cover for ... ;)
Peter
>I'm obviously doing something wrong in my tests. Here is my test code:
>
>
>LOCAL lcFonton, lcFontOff
>lcFonton='<font size="1" face="Courier">'
>lcFontoff='</font>'
>set device to file c:\programnotes\prtemp.htm
>@1,1 say "This is a test line 1."
>@2,1 say "This is line 2."
>@3,1 say "This is line 3."
>@4,1 say "This is line 4."
>@5,1 say "This is line 5."
>eject
>set device to screen
>m.duh=FILETOSTR('c:\programnotes\prtemp.htm')
>m.duh='<html><body>'+lcfonton+CHR(13)+m.duh+CHR(13)+lcfontoff+'</body></html>'
>=STRTOFILE(m.duh,'c:\programnotes\reportview.htm')
>
>>
>What I get in IE is:
>
>
>This is a test line 1. This is line 2. This is line 3.
>
>etc. All lines are on one line in the htm file. The htm file is correct:
>
>
><html><body><font size="1" face="Courier">
>
> This is a test line 1.
> This is line 2.
> This is line 3.
> This is line 4.
> This is line 5.
></font></body></html>
>
>but I'm obviously missing new line commands or something. Am I going to have to parse the results somehow? I hope not...
>
>Also, how to match up an html font size with a printer font? How do I get condensed? How to get in VFP 6, 8, 10, 12 etc... or 17.1 cpi, etc... What exactly is font size 1, 2, ...?
>
>>Hi Tracy,
>>
>>>>Another way to go is to display them as HTML documents in an embedded
>>>>IEBrowser control in a form. Luckily for me the reports are all written
>>
>>OK. I got the proof of concept working.
>>
>>Luckily (for me) the former coder created a secret option to print to a text file -which I renamed to prtemp.htm (** 1).
>>
>>And he had already stored the different CPI setting commands to memory variables, so I just set them to HTML control tags (**2).
>>
>>So when I choose to run the report but not send it to print, the prtemp.htm text file (containing my report) gets wrapped in some obligatory HTML code and saved to a file for viewing (** 3).
>>
>>
>>
>>** 1
>>if printcmd = 'N'
>> set device to file c:\prtemp.htm
>>else
>> set device to print
>>endif
>>
>>** 2
>>** old
>>*!* *** SET CPI FOR LASER PRINTER
>>*!* mp10 = 'chr(27)+"(s0p10H"'
>>*!* mp12 = 'chr(27)+"(s0p12H"'
>>*!* mp16 = 'chr(27)+"(s0p16.66H"'
>>
>>** new
>>*** SET CPI FOR LASER PRINTER
>>mp10 = ['<font size="3">']
>>mp12 = ['<font size="2">']
>>mp16 = ['<font size="1">']
>>
>>** 3
>> set device to screen
>> m.duh=FILETOSTR('c:\prtemp.htm')
>> m.duh='<html><body>'+CHR(13)+m.duh+CHR(13)+'</body></html>'
>> =STRTOFILE(m.duh,'c:\reportview.htm')
>>
>>>>
>>I'm still going to investigate what Peter was talking about but so far this little kludge seems to work like a charm!
>>
>>Hugh
