Autore Topic: Gridview e pdfwriter  (Letto 583 volte)

Offline andy60

  • Senatore Gambero
  • ******
  • Post: 1.256
    • Mostra profilo
    • https://www.linkedin.com/in/andbertini
Gridview e pdfwriter
« il: 24 Dicembre 2011, 00:52:56 »
Se ho una gridview popolata di dati (sia numeri che stringhe) posso stamparla con il componente pdf-writer? Come invio i dati e come li posiziono?
Forse mi sa che conviene fare una stampa grafica. In questo caso conoscete i comandi per stampare una porzione di schermo? Grazzzzie

Offline Golia

  • Senatore Gambero
  • ******
  • Post: 1.298
  • no xe mai massa tardi
    • Mostra profilo
Re: Gridview e pdfwriter
« Risposta #1 il: 24 Dicembre 2011, 09:29:46 »
Citazione
Forse mi sa che conviene fare una stampa grafica

Sei matto!! :D

Codice: gambas [Seleziona]

                  sql = "select * from clienti"
                  MyRS = avvio.$myconn.Exec(sql)
      
                          Me.SetFont("Arial", "", 12)  
                          If MyRS.Available = True Then    
                              For Each MyRS
                              Me.Cell(45, 6, MyRS!cognome & " " & MyRS!nome, True, 0, "L", False)
                              Me.Cell(85, 6, MyRS!indirizzo & " " & MyRS!citta & " (" & MyRS!provincia & ")", True, 0, "L", False)
                              Me.Cell(30, 6, MyRS!telefono, True, 0, "L", False)
                              Me.Cell(30, 6, MyRS!telefono2, True, 0, "L", False)
                              Me.Ln()
                              Next
                          Endif    


Ti consiglio di usare al posto di Me.Cell, Me.MultiRiga + MultiRect che adatta l'altezza della cella secondo il contenuto.
Dovrebbe esserci l'esempio in un 3d che abbiamo fatto dex e io, casomai fammi un pronto ;)

edit:
Pronto  :)
Questo è il codice con Multiriga:

Codice: gambas [Seleziona]

         sql = "select * from dettagli"           
          MyRS = $conn.Exec(sql)   
            If MyRS.Available = True Then   
          For Each MyRS         
              Me.MultiRiga(10, 5, MyRS!quantita, False, "L", False) 
              Me.MultiRiga(30, 5, MyRS!codice, False, "L", False)           
              Me.MultiRiga(110, 5, MyRS!descrizione, False, "L", False)         
              Me.MultiRiga(40, 5, MyRS!colore, False, "L", False)     
              Me.MultiRect([10, 30, 110, 40])                   
          Me.Lnm()
          Next
          Endif

Eccoti impachettato gli esempi per pdfwriter con gambas3, guarda l'esempio "Griglia con database"
« Ultima modifica: 24 Dicembre 2011, 11:12:44 da Golia »