Stampa della ListView con l'oggetto Print

[sara81it]

Ciao a tutti,
è possibile con l'oggetto print stampare i dati di una listview?

Come???

Grazie sara

[Markho]

Ciao, Sara

    For i = 1 To tualistview.ListItems.Count
        
        elemento1 = tualistview.ListItems.Item(i).Text 'primo elemento
        elemento2 = tualistview.ListItems.Item(i).ListSubItems(1).Text 'secondo elemento
        elemento3 = tualistview.ListItems.Item(i).ListSubItems(2).Text 'etc
        elemento4 = tualistview.ListItems.Item(i).ListSubItems(3).Text 'etc
        
        'qui metti la stampa degli elementi appena letti
        [....]
        
        'poi devi fare il controllo quaando la pagina è finita
        ' la chiude e ne incomincia un'altra....
        [....]
        
    Next i

fammi sapere, bye bye

[sara81it]

Ho un piccolo problema, non so usare benissimo l'oggetto printer quindi non so come testare il cambo pagina. e poi, io non so quanti sono gli item della list... come faccio a farglieli stampare tutti?

grazie Sara

[sara81it]

Cosa sono elemento1 elemento2 etc?

[xegallo]

Originariamente inviato da sara81it
Ho un piccolo problema, non so usare benissimo l'oggetto printer quindi non so come testare il cambo pagina. e poi, io non so quanti sono gli item della list... come faccio a farglieli stampare tutti?

grazie Sara

certo che sai quanti sono gli item
.listitems.count
basta che fai un ciclo da 0 a .listitems.count -1

[sara81it]

Grazie Xegallo
sei stato gentilissimo!

io nel Form_Load carico la listView con i campi del DataBase (Tramite DAO) e ottengo nella listview un elenco di nominativi e altri campi.. Sono 5 colonne in tutto.

nell'evento click del pulsante voglio stamare e ho scritto :

For i = 1 To ListView1.ListItems.Count - 1
     
elemento1 = ListView1.ListItems.Item(i).Text 
elemento2 = ListView1.ListItems.Item(i).ListSubItems(1).Text 
elemento3 = ListView1.ListItems.Item(i).ListSubItems(2).Text elemento4 = ListView1.ListItems.Item(i).ListSubItems(3).Text 
        
Next i

Ma cosa sono elemento1,elemento2 etc... con cosa dovrei sostituirli?

e come gestisco la fine pagina?

Grazie
Sara

[Markho]

elemento1,elemento2 sono le variabili di deposito a cui assegni i valori che legge dalla list...

per la fine pagine: a ogni ciclo incrementi il valore X delle righa, quando questo valore arriva a un tot da la fine pagina:

printer.NewPage


quando hai finito di scorrere tutta la lista e l'hai mandata in stampa fai:

printer.EndDoc

[sara81it]

scusami ma proprio non riesco a capire.

Nel Form_ load ho:

Set db = OpenDatabase(App.Path & "\Bar.mdb")
    sql = "select * from Clienti order by Ragso"
Set rs = db.OpenRecordset(sql)
ind = 0

ListView1.ColumnHeaders.Add , , "Nome e Cognome", ListView1.Width / 5
ListView1.ColumnHeaders.Add , , "Indirizzo", ListView1.Width / 3
ListView1.ColumnHeaders.Add , , "Città", ListView1.Width / 5
ListView1.ColumnHeaders.Add , , "Cap", ListView1.Width / 8
ListView1.ColumnHeaders.Add , , "Telefono", (ListView1.Width / 6.5) - (30 + 255)

   ListView1.BorderStyle = ccFixedSingle
   ListView1.View = lvwReport

Do While rs.EOF = False 'Scorro tutta la query
   ind = ind + 1
Set mItem = ListView1.ListItems.Add(, , CStr(rs("Ragso"))) 
mItem.ListSubItems.Add , , CStr(rs("Indirizzo"))       
mItem.ListSubItems.Add , , CStr(rs("Città"))               
mItem.ListSubItems.Add , , CStr(rs("Cap"))
mItem.ListSubItems.Add , , CStr(rs("Telefono"))
ListView1.ListItems(ind).Tag = rs("ID")
   rs.MoveNext
Loop
rs.Close

nel pulsante stampa ho:

For i = 1 To ListView1.ListItems.Count - 1
     
elemento1 = ListView1.ListItems.Item(i).Text 
elemento2 = ListView1.ListItems.Item(i).ListSubItems(1).Text 
elemento3 = ListView1.ListItems.Item(i).ListSubItems(2).Text elemento4 = ListView1.ListItems.Item(i).ListSubItems(3).Text 
        
Next i


Printer.Print elemento1
Printer.Print elemento2
Printer.Print elemento3
Printer.Print elemento4

Printer.EndDoc

credo che sia giusto ma semplicemente non so come assegnare i valori a elemento1 etc...

thanks

[Markho]

mi dai la mail (anche in privato) che ti mando un esempio?
ciao