[VB6] Stampare i dati di una ListView

[SkOrPiOn`87]

Salve,

Dovrei stampare i dati che sono contenuti in un listview...

Per la stampa avevo creato la maschera con un DataReport, però accetta soltanto RecordSet, ma io non potento utilizzare un database per questa operazione non riesco a crearne 1...


Qualcuno sa dirmi in che modo potrei prendere i dati della listviuew e metterli nella mia DataReport, oppure indicarmi un'altro componente per la stampa che mi permetta di afre questo?


Grazie

[wallrider]

sennò puoi usare un recordset disconnesso

[SkOrPiOn`87]

in che senso scusa?

[multijet]

Ti puo' andare bene esportare i dati in un file .txt?
Se si rispondi,cosi' ti posso dare qualche indicazione.

[SkOrPiOn`87]

Si, volendo potremmo fare anche così...

[LMondi]

Se vuoi puoi usare Print. Per esempio
nel seguente modo stampi i record selezionati nella ListV:

' Verifica se c'è una selezione:
    Dim itm As ListItem
    Set itm = FrmLista.LvSearch.SelectedItem
    Dim i As Integer
    Dim ItemChecked As Boolean
        
        ItemChecked = False
        
    ' Verifica l'esistenza di una selezione:
        For i = 1 To FrmLista.LvSearch.ListItems.Count
            If FrmLista.LvSearch.ListItems(i).Checked = True Then
                ItemChecked = True
                Exit For
            End If
        Next i
    
    'Se ItemChecked = True (Selezione Attiva) stampa i soli records selezionati nella LV:
      If ItemChecked = True Then
         Printer.Font = "Times New Roman"
         Printer.FontBold = False
         Printer.FontUnderline = False
         Printer.FontSize = 10
        For i = 1 To FrmLista.LvSearch.ListItems.Count
            If FrmLista.LvSearch.ListItems(i).Checked = True Then
                Printer.FontBold = True
                Printer.Print Space(12) & "N° Registrazione ....  : " & FrmLista.LvSearch.ListItems(i).Text
                Printer.FontBold = False
                Printer.Print Space(24) & "Data di deposito ...... : " & FrmLista.LvSearch.ListItems(i).ListSubItems(1).Text
                Printer.Print Space(24) & "Proponente : " & FrmLista.LvSearch.ListItems(i).ListSubItems(2).Text
                Printer.Print Space(24) & "Parte .... : " & FrmLista.LvSearch.ListItems(i).ListSubItems(3).Text & Chr(10)
....
End If
        Next i
         Printer.EndDoc
      End If

La cosa è lunghetta ... Fai una ricerca in rete vi sono diversi esempi.

[oliweb]

io ho lo stesso problema...in parte l'ho risolto con l'aiuto di LMondi però con quell'esempio mi elenca i dati così:

N° Registrazione ....
Data di deposito ......
Proponente .....:
Parte ....

vorrei che mi elencasse i dati così:

N° Registrazione Data di deposito Proponente N° Registrazione Parte
1 30/11/2008 ugo 5 Prova
2 01/12/2008 mario 8 prova

senza ripetere sempre

N° Registrazione Data di deposito Proponente N° Registrazione Parte

come posso fare?

Grazie

[LeleFT]

Discussione del 2006!
Apri una nuova discussione, seguendo le indicazioni del Regolamento per i titoli e i linguaggi, senza riesumare i cadaveri sepolti da tempo.


Ciao.