Ciao a tutti,
è possibile con l'oggetto print stampare i dati di una listview?
Come???
Grazie sara
Ciao a tutti,
è possibile con l'oggetto print stampare i dati di una listview?
Come???
Grazie sara
Grazie
Sara
www.tsnavigliana.it
Ciao, Sara
fammi sapere, bye byecodice: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
...e quando meno te lo aspetti potrebbe capitare qualcosa di bello, di più importante di quello che avevi programmato...
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
Grazie
Sara
www.tsnavigliana.it
Cosa sono elemento1 elemento2 etc?
Grazie
Sara
www.tsnavigliana.it
certo che sai quanti sono gli itemOriginariamente 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
.listitems.count
basta che fai un ciclo da 0 a .listitems.count -1
Vascello fantasma dei mentecatti nonchè baronetto della scara corona alcolica, piccolo spuccello di pezza dislessico e ubriaco- Colui che ha modificato l'orribile scritta - Gran Evacuatore Mentecatto - Tristo Mietitore Mentecatto chi usa uTonter danneggia anche te
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 :
Ma cosa sono elemento1,elemento2 etc... con cosa dovrei sostituirli?codice: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
e come gestisco la fine pagina?
Grazie
Sara
Grazie
Sara
www.tsnavigliana.it
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
...e quando meno te lo aspetti potrebbe capitare qualcosa di bello, di più importante di quello che avevi programmato...
scusami ma proprio non riesco a capire.
Nel Form_ load ho:
nel pulsante stampa ho:codice: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
credo che sia giusto ma semplicemente non so come assegnare i valori a elemento1 etc...codice: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
thanks
Grazie
Sara
www.tsnavigliana.it
mi dai la mail (anche in privato) che ti mando un esempio?
ciao
...e quando meno te lo aspetti potrebbe capitare qualcosa di bello, di più importante di quello che avevi programmato...