Oppure

Loading
15/10/15 14:34
Quindi il mio codice fa esattamente questo, il tuo no.

Controlla e ne riparliamo.
22/10/15 9:10
rasonice
No nessuno.... il tuo esce così
casa
chiesa

e così via..
aaa
22/10/15 11:57
Non so quale codice tu abbia provato ma la linea che ti ho proposto io funziona.

Se mostri il codice completo che usi, probabilmente ti indico l'errore e ne usciamo ...


Ma se rispondi dopo 7 giorni ...
22/10/15 14:44
rasonice
Questo è il codice
Dim TIPPOST As Excel.Range = XlsFoglio.Range("I" & 4 + cont, Reflection.Missing.Value)
Dim RIC As String = rs.Fields("RICEVENTE";).Value
Dim a As String = "__________________________________________"
Dim b As Integer = RIC.Length
Dim lung As Integer = (a.Length - b) / 2
Dim testo As String = a.Insert(lung + (RIC.Length / 2), RIC)
With TIPPOST
.Value = testo
.Font.Bold = False
.Font.Underline = True
.Font.Size = 12
.HorizontalAlignment = Excel.XlHAlign.xlHAlignCenter
End With
in pratica devo andare a scrivere su una cella Excel
aaa
22/10/15 18:35
Ma questo è il TUO codice. Io volevo il codice che hai provato con la linea che ti ho suggerito e che dici non funzionante.
23/10/15 11:50
rasonice
Non ricordo come inserii il tuo codice. Adesso non ce l'ho più... devo riprovare e vedere..
aaa
23/10/15 12:04
rasonice
Allora nessuno.... non so come ma adesso funziona. Mea culpa... :( Non so come lo inserii l'altra volta... ma mi dava quel risultato.

Ma che differenza c'è tra il tuo e il mio codice?
aaa
23/10/15 12:23
Praticamente con una riga fai tutto.