Forse mi sa che conviene fare una stampa grafica
Sei matto!!
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:
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"