Visualizzazione dei risultati da 1 a 9 su 9
  1. #1

    Stampa della ListView con l'oggetto Print

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

    Come???

    Grazie sara
    Grazie
    Sara

    www.tsnavigliana.it

  2. #2
    Ciao, Sara

    codice:
        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
    ...e quando meno te lo aspetti potrebbe capitare qualcosa di bello, di più importante di quello che avevi programmato...

  3. #3
    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

  4. #4
    Cosa sono elemento1 elemento2 etc?
    Grazie
    Sara

    www.tsnavigliana.it

  5. #5
    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
    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

  6. #6
    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 :

    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
    Ma cosa sono elemento1,elemento2 etc... con cosa dovrei sostituirli?

    e come gestisco la fine pagina?

    Grazie
    Sara
    Grazie
    Sara

    www.tsnavigliana.it

  7. #7
    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...

  8. #8
    scusami ma proprio non riesco a capire.

    Nel Form_ load 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
    nel pulsante stampa ho:
    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
    credo che sia giusto ma semplicemente non so come assegnare i valori a elemento1 etc...

    thanks
    Grazie
    Sara

    www.tsnavigliana.it

  9. #9
    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...

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.