Public Function GetHtmlFromListView(LV As ListView) As String
Dim i As Integer, j As Integer, sTemp As String
GetHtmlFromListView = "<TABLE WIDTH=""95%"" BORDER=""1"" BORDERCOLORLIGHT=""#CCCCCC"" BORDERCOLORDARK=""#66CCFF"">" & vbCrLf
' headers
GetHtmlFromListView = GetHtmlFromListView & " <TR BGCOLOR=""#CCCCFF"">" & vbCrLf
For i = 1 To LV.ColumnHeaders.Count
GetHtmlFromListView = GetHtmlFromListView & " <TD><FONT FACE=""Tahoma"" SIZE=""3""><B>" & LV.ColumnHeaders(i).Text & "</B></FONT></TD>" & vbCrLf
Next i
GetHtmlFromListView = GetHtmlFromListView & " </TR>" & vbCrLf
' data
For i = 1 To LV.ListItems.Count
GetHtmlFromListView = GetHtmlFromListView & " <TR>" & vbCrLf
GetHtmlFromListView = GetHtmlFromListView & " <TD><FONT FACE=""Tahoma"" SIZE=""2"">" & LV.ListItems(i).Text & "</FONT></TD>" & vbCrLf
For j = 1 To LV.ColumnHeaders.Count - 1
sTemp = LV.ListItems(i).SubItems(j)
If LenB(sTemp) = 0 Then sTemp = " "
sTemp = Replace(sTemp, "<", "<")
sTemp = Replace(sTemp, ">", ">")
GetHtmlFromListView = GetHtmlFromListView & " <TD><FONT FACE=""Tahoma"" SIZE=""2"">" & sTemp & "</FONT></TD>" & vbCrLf
Next j
GetHtmlFromListView = GetHtmlFromListView & " </TR>" & vbCrLf
Next i
' fin
GetHtmlFromListView = GetHtmlFromListView & "</TABLE>" & vbCrLf
End Function