Visual Basic - Imprimir un ListView

Life is soft - evento anual de software empresarial
 
Vista:

Imprimir un ListView

Publicado por Edwar (21 intervenciones) el 12/07/2004 21:06:20
por favor alguien q sepa como imprimir un listView..
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Imprimir un ListView

Publicado por miguel (1042 intervenciones) el 13/07/2004 20:25:35
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




Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Imprimir un ListView

Publicado por Edwar (21 intervenciones) el 13/07/2004 22:55:31
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....
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Imprimir un ListView

Publicado por miguel (1042 intervenciones) el 14/07/2004 03:11:41
Quedaria de esta manera:
Dim i As Integer
Dim ImpLinea As Integer

Printer.Print " " & lv.ColumnHeaders(1).Text & " " & lv.ColumnHeaders(2).Text
Printer.Print " "
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
Printer.EndDoc
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar