When going to print the web page I am trying to make sure tables do not get
broken when the page is printed. I am sorry I was not more clear.
For Each row In Dshistory1.Tables(0).Rows
i = i + 1
sw.WriteLine("<html>")
sw.WriteLine("<head>")
sw.WriteLine("</head>")
sw.WriteLine("<body>")
sw.WriteLine("<td width=33% align=center>" &
Dshistory1.Tables(0).Rows(i).Item("CUSTNO") & "</td>")
sw.WriteLine("<td width=33% align=center>" &
Dshistory1.Tables(0).Rows(i).Item("CUSTNAME") & "</td>")
sw.WriteLine("<td width=34% align=center>" &
Dshistory1.Tables(0).Rows(i).Item("SLSMN") & "</td>")
sw.WriteLine("</body>")
sw.WriteLine("</html>")
Next
AxWebBrowser1.ExecWB(SHDocVw.OLECMDID.OLECMDID_PRINT,
SHDocVw.OLECMDEXECOPT.OLECMDEXECOPT_DODEFAULT)