PrintListView

Public Function PrintLW(Lw As ListView)

Dim sData As String
Dim X As Integer
Dim sIdx As Integer
sIdx = Lw.ColumnHeaders.Count - 1
On Error Resume Next
Printer.Print Tab(4), "ListView print demo"
Printer.Print
For i = 1 To Lw.ListItems.Count
sData = Lw.ListItems.Item(i).Text
For X = 1 To sIdx
sData = sData & " " & Lw.ListItems.Item(i).SubItems(X)
Next
Printer.Print sData
sData = ""
Next
Printer.EndDoc
Lw.ListItems.Clear
MsgBox "Fine!!"

End Function

'---====[ pAssed by vbTips32 codeBook ]====---