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