How can I custom format an html page that has been exported from a VB6 msflexgrid?

I found the following code (below) here on EE that allows me to send msflexgrid data to an html page. The code works fine in my VB6 program.....

How can I custom format the html so that I can show gridlines, customize backcolor, change font color etc.

Public Sub gridToHtml()
Dim iFree As Long
iFree = FreeFile
Open "report.html" For Output As #iFree
Print #iFree, "<html><head></head><body><table>"
With MSFlexGrid1
For I = 0 To .Rows - 1
    Print #iFree, "<tr>"
    For J = 0 To .Cols - 1
        Print #iFree, "<td>" & .TextMatrix(I, J) & "</td>"
    Print #iFree, "</tr>"
Print #iFree, "</table></body><html>"
Close #iFree
End With
End Sub
Who is Participating?
Fastest way to do this is inserting HTML markup in the strings.

For gridlines: Print #iFree, "<html><head></head><body><table border=1>"

For font color:         Print #iFree, "<td><font color=#FF0000>" & .TextMatrix(I, J) & "</font></td>"

Better way is using CSS...
jazjefAuthor Commented:
any other suggestions?..... I am having a difficult time formatting the data this way. The html seems to be buggy when used this way. How does one integrate CSS?
You can integrate CSS inline or with a separate .css file

In header section of your HTML, link to the .css file, you'll get something like this:
Print #iFree, "<html><head><link rel="stylesheet" href="stylesheet.css" type="text/css"></head><body><table>"

Open in new window

you can place a reference to the appropriate class in each html-tag like this:
Print #iFree, "<td class=TableCell>" & .TextMatrix(I, J) & "</td>"

Open in new window

Your CSS file will look like this:
	color: #FFFFFF;

Open in new window

jazjefAuthor Commented:
Thanks d3n... I was able to learn how to create a nice basic html report with your code from your first post; I can see how the style sheet thing would probably be better----but I think I'll make that a separate question in the near future.
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.