Center value in richtextbox, for strongm

[sal21]

Based on:

https://www.tek-tips.com/viewthread.cfm?qid=1812055

i have to the last 2 value an incorrect align...

25,00 is the price (i can have only a xx,yy, similar 56,00, 88,00.. ecc)

14/05/2023 is a date

see the image

https://files.engineering.com/getfi...8a7f-4fd3-8f24-08516a56ad90&file=Immagine.jpg

i need:

25,00 14/05/2023

part of my code:

...
'REPARTO
STRINGA = Format("NOME", "!" & String(28, "@")) & Format("FIL", "@@@@@") & Format("NUM", "@@@@@") & Format("DS", "@@@@@") & Format("PREZZO", "@@@@@@@@") & Format("PER IL.", "@@@@@@@@@@")
Me.RichTextBox1.SelText = Me.RichTextBox1.SelText & STRINGA & vbCrLf
'REPARTO

'Me.RichTextBox1.Text = ""

Me.RichTextBox1.SelText = Me.RichTextBox1.SelText & "------------------------------------------------------------" & vbCrLf

With NOMI.LVSCONTRINO
For K = 1 To .ListItems.Count
If .ListItems(K).Checked = True Then
NOME = .ListItems(K).Text
FILA = .ListItems(K).ListSubItems(1).Text
COLONNA = .ListItems(K).ListSubItems(2).Text
DXSX = .ListItems(K).ListSubItems(3).Text
STRPRZ = .ListItems(K).ListSubItems(4).Text
DATA = .ListItems(K).ListSubItems(5).Text
STRINGA = Format(NOME, "!" & String(28, "@")) & Format(FILA, "@@@@@") & Format(COLONNA, "@@@@@") & Format(DXSX, "@@@@@") & Format(STRPRZ, "@@@@@@@@") & Format(DATA, "@@@@@@@@@@")
PRZ = PRZ + STRPRZ
NRPZ = NRPZ + 1
Me.RichTextBox1.SelText = Me.RichTextBox1.SelText & STRINGA & vbCrLf
End If
Next K
End With
...

note:
now th max length of NOME is 20 not 28

image of listview

https://files.engineering.com/getfi...27b-41c9-931e-b28911806897&file=Immagine1.jpg

 

[strongm]

Try

[tt]STRINGA = Format("NOME", "!" & String(27, "@")) & Format("FIL", "@@@@@") & Format("NUM", "@@@@@") & Format("DS", "@@@@@") & Format("PREZZO", "@@@@@@@@") & Format("PER IL.", "@@@@@@@@@@@")[/tt]

and

[tt]STRINGA = Format(NOME, "!" & String(27, "@")) & Format(FILA, "@@@@@") & Format(COLONNA, "@@@@@") & Format(DXSX, "@@@@@") & Format(STRPRZ, "@@@@@@@@") & Format(DATA, "@@@@@@@@@@@")[/tt]

 

[sal21]

tks bro.
All work perfect now!