Imprimir contenido de ListView en documento de Word

Mario

Tenes que utilizar (recorrer) la coleccion Subitems,
de cada uno de los items.



Pablo.

Si eso lo supongo, el tema es que no se como acceder a los subitems...

Algun ejemplo?

Saludos.

"Pablo Fébolo" escribió en el mensaje
news:

Mario

Tenes que utilizar (recorrer) la coleccion Subitems,
de cada uno de los items.



Pablo.

Mario, te doy un ejemplo de memoria

dim MiListView as ListView
dim MiListViewItem as ListViewItem
dim SubItemIdx as Integer
dim Dato as string

For each MiListViewItem in MiListView.Items
For SubItemIdx = 0 To MiListViewItem.SubItems.Count-1
Dato = MiListViewItem.SubItems.item(SubItemIdx)
Next
Next


Pude haber cometido algun error en la sintaxis
pero va por ahi.

Saludos.

Pablo, perdona, pero es que estoy muy verde en esto de .Net

He realizado lo siguiente:
Dim oWord As Word.Application
Dim oDoc As Word.Document

Dim slSel As Word.Selection



Dim MiListView As ListView

Dim MiListViewItem As ListViewItem

Dim SubItemIdx As Integer

oWord = New Word.Application

oDoc = oWord.Documents.Add

slSel = oWord.Selection

oWord.Visible = True

'Creo una Tabla

oDoc.Tables.Add(slSel.Range, 1, 6)

For Each MiListViewItem In MiListView.Items

For SubItemIdx = 0 To MiListViewItem.SubItems.Count - 1

slSel.TypeText(MiListViewItem.SubItems.Item(SubItemIdx).Text)

slSel.MoveRight()

Next

Next


Y me muestra el siguiente error:
Excepción no controlada del tipo 'System.NullReferenceException' en prj.exe

Información adicional: Referencia a objeto no establecida como instancia de
un objeto.

Supongo que alguna declaración está mal... porque deberia de asociarle al
listView el ltvResultados.

Me puedes echar una mano?

Mil gracias.

"Pablo Fébolo" escribió en el mensaje
news:

Mario, te doy un ejemplo de memoria

dim MiListView as ListView
dim MiListViewItem as ListViewItem
dim SubItemIdx as Integer
dim Dato as string

For each MiListViewItem in MiListView.Items
For SubItemIdx = 0 To MiListViewItem.SubItems.Count-1
Dato = MiListViewItem.SubItems.item(SubItemIdx)
Next
Next


Pude haber cometido algun error en la sintaxis
pero va por ahi.

Saludos.

Sin no me equivoco tenes que asignarle el ltvResultados
al MiListView

oDoc.Tables.Add(slSel.Range, 1, 6)

MiListView = ltvResultados <-- Linea faltante

For Each MiListViewItem In MiListView.Items
.
.
.

De todos modos el ejemplo era a modo de referencia
finaje que tambien podrias reemplazar MilistView
por ltvResultados, y quedaria

oDoc.Tables.Add(slSel.Range, 1, 6)

For Each MiListViewItem In ltvResultados.Items

For SubItemIdx = 0 To ltvResultados.SubItems.Count - 1

slSel.TypeText(ltvResultados.SubItems.Item(SubItemIdx).Text)



Suerte.






"Mario" wrote in
news:#:

Pablo, perdona, pero es que estoy muy verde en esto de .Net

He realizado lo siguiente:
Dim oWord As Word.Application
Dim oDoc As Word.Document

Dim slSel As Word.Selection



Dim MiListView As ListView

Dim MiListViewItem As ListViewItem

Dim SubItemIdx As Integer

oWord = New Word.Application

oDoc = oWord.Documents.Add

slSel = oWord.Selection

oWord.Visible = True

'Creo una Tabla

oDoc.Tables.Add(slSel.Range, 1, 6)

For Each MiListViewItem In MiListView.Items

For SubItemIdx = 0 To MiListViewItem.SubItems.Count - 1

slSel.TypeText(MiListViewItem.SubItems.Item(SubItemIdx).Text)

slSel.MoveRight()

Next

Next


Y me muestra el siguiente error:
Excepción no controlada del tipo 'System.NullReferenceException' en
prj.exe

Información adicional: Referencia a objeto no establecida como
instancia de un objeto.

Supongo que alguna declaración está mal... porque deberia de asociarle
al listView el ltvResultados.

Me puedes echar una mano?

Mil gracias.

"Pablo Fébolo" escribió en el
mensaje news:

Mario, te doy un ejemplo de memoria

dim MiListView as ListView
dim MiListViewItem as ListViewItem
dim SubItemIdx as Integer
dim Dato as string

For each MiListViewItem in MiListView.Items
For SubItemIdx = 0 To MiListViewItem.SubItems.Count-1
Dato = MiListViewItem.SubItems.item(SubItemIdx)
Next
Next


Pude haber cometido algun error en la sintaxis
pero va por ahi.

Saludos.