Well Printing to HTML (not printing a HTML Page)

Printable View

Mar 9th, 2002, 09:09 PM
James Stanich

Well Printing to HTML (not printing a HTML Page)

How would I take a group of database records and create a HTML page from them (I would like to do without going thru Access, if possible)...

Basically, my real goal would be able to print custom reports I made user Printer.print and then give the user the option as saving this report in HTML (WYSIWYG fromat).

Any ideas? Is this far-etched?

very, very, very simple example...

VB Code:

Private Sub GenerateHTML(rs As RecordSet)
Dim s As String  
Dim fld As Field
 
    s = "<html>"
 
    With rs
        If .RecordCount > 0 Then
            .MoveFirst
            s = s & "<table border=""1"">"
      
            While Not .EOF
                s = s & "<tr>"
                For Each fld In rs.Fields
                    s = s & "<td>" & fld.Value & "</td>"
                Next fld
                s = s & "</tr>"
                .MoveNext
            Wend
 
          s = s & "</table>"
        End If
    End With  
 
    s = s & "</html>"
 
    WebBrowser1.Document.documentElement.innerHTML = s
 
End Sub

Mar 9th, 2002, 09:59 PM
James Stanich

crptcblade: Thanks for replying...

Quote:

WebBrowser1.Document.documentElement.innerHTML = s

A webrowser control is necessary?

Is there a way to format it exactly the way I want it to look?
Mar 9th, 2002, 10:02 PM
crptcblade

No, a WebBrowser isn't necessary, I just figured I'd throw it in there as a way to view it. You can save it to an HTML file and view/print it some other way.

To format it how you want it, you'll have to check the data, and add html tags where needed.

:)
Mar 9th, 2002, 10:05 PM
James Stanich

Well

Have you ever run across a tutorial on this subject? Any of the other VB sites perhaps? I'm looking for examples of different methods, since my knowledge with HTML tags is lacking...
Mar 12th, 2002, 09:40 AM
Kevin Swanson
crptcblade, how do you use the .documentElement.innerHTML? I don't see any properties of WebBrowser1.Document and .Document is shown as read-only.
VB Code:
```
WebBrowser1.Document.documentElement.innerHTML = s
```
Thank you.

All times are GMT -5. The time now is 05:59 AM.