hola soy yo otra vez oigan algien me puede ayudar con imprimir un listview de 14C*24R

Conejo Blanco
29 de Julio del 2004
trato de imprimir el contenido de un listview de 14 columnas por 24 renglones asi pero no se deja me los da escalerados:
alguien que me ayude pliss estoy en el msn de 10 a 6 pm hora de mexico central
se los agradeceria muchote
Function xpres(lili As ListView)
Dim renglon As Integer
renglon = 1440
With lili.ListItems
For i = 1 To .Count
Printer.CurrentX = 1440
Printer.CurrentY = renglon
'Printer.Print .Item(i) 'imprime el item principal primera columna
Printer.CurrentX = 4000
Printer.CurrentY = renglon
Set lite = .Item(i)
Printer.Print lite
For xc = 1 To 13
For apenda = 0 To 200 Step 20
Printer.Print Tab(apenda); lite.SubItems(xc)
Next apenda
Next xc
renglon = renglon + 200
Next i
End With
Printer.EndDoc
End Function