>
>
>** 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!
To make this work properly in a networked environment, just start using sys(2015) to create the filename - because if two users start running this report at (sufficiently) same time, this will break (if you omit the path, that is). And you may want to send it to user's Temp directory, not c:\. Using C:\ for anything is just not kosher.
