I provide a comprehensive set of reports of a catalogue from my app in :-
FoxPro
MSWord
HTML
For the last few years the HTML has been satisfactorily written by this type of code snippet from one of the many prg files handling different data elements in the catalogue table
In one long page I am loosing the font definition after say record 26 so I would like to convert to a style sheet system but am not sure how I would write out the page tags.
Has anyone any examples of some code doing this?
Regards
William
FoxPro
MSWord
HTML
For the last few years the HTML has been satisfactorily written by this type of code snippet from one of the many prg files handling different data elements in the catalogue table
Code:
*!* gnMyHTMLNo is the handle for the page already created
=FWRITE(gnMyHTMLNo,(bwpara)+chr(13)+'<hr>')
*!*FONT.SIZE = 12 && body text in (myfontHTML)
=FWRITE(gnMyHTMLNo,'<font size="'+ ( myfontHTML)+'">')+ ( myfontHTML)+'">')
=FWRITE(gnMyHTMLNo,chr(13))
=FWRITE(gnMyHTMLNo, 'Record : '+' : ')
=FWRITE(gnMyHTMLNo,'<b>'+ALLTRIM(str(nextrecord,5,0))+'</b>')
=FWRITE(gnMyHTMLNo,chr(13))
=FWRITE(gnMyHTMLNo,'_____'+ (itemname) +' : ') && Exhibit Number
=FWRITE(gnMyHTMLNo,'<b>' + (itemnumber ) + '</b>')
=FWRITE(gnMyHTMLNo,chr(13))
=FWRITE(gnMyHTMLNo,'_____'+(ItemType)+' : ')
=FWRITE(gnMyHTMLNo,'</font>'+chr(13))
=FWRITE(gnMyHTMLNo,'<span style="font-variant: small-caps"><font size="'+ (myfontHTML)+'">')
=FWRITE(gnMyHTMLNo,'</font></span>')
In one long page I am loosing the font definition after say record 26 so I would like to convert to a style sheet system but am not sure how I would write out the page tags.
Has anyone any examples of some code doing this?
Regards
William