Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Puedes hacerlo de esta manera, dependiendo cuantos SubItems tengas es lo que vas a concatenar....SALUDOS!!! Dim i As Integer Dim ImpLinea As Integer For i = 0 To lv.ListItems.Count - 1 Printer.Print " " & lv.ListItems(i + 1).Text & " " & _ lv.ListItems.Item(i + 1).SubItems(1) & vbCrLf
ImpLinea = ImpLinea + 1 If ImpLinea = 30 Then Printer.NewPage ImpLinea = 0 End If Next i
muchas gracias.. necesito otro favor.. como se imprime el formato q trae es decir el listview tiene un encabezado como hago par poder imprimir tambien el encabezado y gracias de antemano....