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
.·*´¨)
.·`TCH
(..·*
010000110101001101101000011000010111001001110000010011110111001001000010011101010111001101110100
"When the debate is lost, slander becomes the tool of the loser." - Socrates
Vita contingit, Vive cum eo. (Life Happens, Live With it.)
"Life is not measured by the number of breaths we take, but by the moments that take our breath away." -- author unknown
"De omnibus dubitandum"
