Nabucodonosor
09 de Agosto del 2005

Hola a todos
Mi problema es que necesito imprimir un listview con varias columnas y datos he estado intentando con
Private Sub Command1_Click()
Dim i As Integer
Dim iso As ListView
For i = 1 To i = 4
Printer.CurrentX = 1000
Set iso = ListView2.ListItems(i)
Printer.Print iso.ListItems.Item(i)
Next i
Printer.EndDoc
End Sub
pero solo se me imprime la primera columna y el resto no

Q hago

Por la atencion les agradezco de antemano

krizall
09 de Agosto del 2005

dim renglon as integer
renglon=1440

with listview1.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
printer.print .item(I).subitem(1) 'imprime la sigueinte colunna
...
renglon=renglon+200
next i
printer.enddoc

espero te sirva este ejemplillo

sghiselli
09 de Agosto del 2005

Estoy con el mismo conflicto de no poder imprimir el contenido de un ListView y he probado este ejemplo que has dejado y me da un error de compilacion "No se ha definido la variable" cuando pongo depurar me señala la palabra Printer, ...como un objeto la defino?
Muchas Gracias, espero tu respuesta pronto!!.