Vi posto il problema da cui era generato questo dubbio: uso l’applicativo di cui si è parlato in questo forum per generare un pdf. Devo scrivere una stringa molto lunga in una cella e vorrei che andasse a capo e quindi scrivesse in una nuova cella dopo circa 48 caratteri. Vorrei anche fare in modo che andasse a capo quando finisce una parola. Ho scritto il seguente codice
codice:
len_desc = Len(rgrupb("DESCRIZIONE"))
e = 48
strDescCheck = "a"
do while strDescCheck <> " "
strDescCheck = Mid(rgrupb("DESCRIZIONE"), e, 1)
strDesc = Mid(rgrupb("DESCRIZIONE"), 1, e)
e = e + 1
loop
pdf.Cell 100,10,strDesc,0,0
pdf.ln(5)
i = e
do while (i < len_desc)
e = 48
strDescCheck = "a"
do while strDescCheck <> " "
strDescCheck = Mid(rgrupb("DESCRIZIONE"), i + e, 1)
strDesc = Mid(rgrupb("DESCRIZIONE"), i, e)
e = e + 1
loop
i = i + e - 1
pdf.Cell 200,10,"",0,0 'spazio bianco per allineare le celle alla prima
pdf.Cell 100,10,strDesc,0,0
pdf.ln(5)
loop
La prima riga è dovuta al fatto che la pagina appare come una tabella e la parte di cui stiamo parlando è quella in fondo a destra. La prima riga delle altre celle è riempita, mentre le righe successive sono vuote e sono riempite solo per l’ultima cella (quella che andiamo a scrivere noi (infatti la riga commentata verso la fine è per lasciare questo spazio bianco).