I made some modification. It works

Code:
Dim i As Integer, iTab As Integer
iTab = 5
For i = 1 To Form5.ListView2.ColumnHeaders.Count - 1
Printer.Print Tab(iTab); Form5.ListView2.ColumnHeaders(i).Text;
iTab = iTab + 20
Next