IMPRIMIR LO QUE OBTUBE EN LIST1 CON PRINTER

ISELA
11 de Febrero del 2004
HOLA AMIGOS, IMPRIMI ASI LO QUE OBUBE CON EL LABEL:
Printer.Print Label63
Printer.CurrentX = 4500
Printer.CurrentY = 4500
Printer.Print List1
Printer.Print List2
Y RESULTA QUE NO ME IMPRIME LO QUE CONTIENE EL LIST...ALGUIEN PUEDE AYUDARME SE LO AGRADECERIA....

sdemingo
11 de Febrero del 2004
Hola,

Tienes que recorrer los elementos del listview para imprimirlos, no es como un label...

Private Sub Command1_Click()

Dim i As Integer

For i = 1 To ListView1.ListItems.Count
Printer.Print ListView1.ListItems(i).Text & " " & ListView1.ListItems(i).ListSubItems(1).Text
Next i

End Sub

Private Sub Form_Load()

ListView1.ListItems.Add , , "Pepe"
ListView1.ListItems(1).ListSubItems.Add , , "García"

ListView1.ListItems.Add , , "Manolo"
ListView1.ListItems(2).ListSubItems.Add , , "Perez"

ListView1.ListItems.Add , , "Isildur"
ListView1.ListItems(3).ListSubItems.Add , , "Gondor"

End Sub


salu2
sdemingo
http://boards.melodysoft.com/sdemingo