& Chr$(13) & Chr$(10)

[Phantom]

Dzień dobry
dotyczy: kod na wymuszanie nowej linii w raporcie
Mam coś takiego:

te = ""
te = te & "Otrzymują:" & Chr$(13) & Chr$(10)
te = te & "1 x aaa aaaaaa aaaaaa aaaaaa aaaaaa " & Chr$(13) & Chr$(10)
te = te & "1 x bbbb bbbbbbbb bbbbb bbbbbb bbbb" & Chr$(13) & Chr$(10)

me.PoleOtrz = te

Jeżeli pole "poleOtrz" ma ograniczoną długość np 5cm to otrzymuję:
Otrzymują:
1 x aaa aaaaaa aaaaaa aaaa
aa aaaaaa
1 x bbbb bbbbbbbb bbbbb bb
bbbb bbbb

Czy jest jakiś sposób aby uzyskać:
Otrzymują:
1 x aaa aaaaaa aaaaaa aaaa
aa aaaaaa
1 x bbbb bbbbbbbb bbbbb bb
bbbb bbbb

czyli wymusić kilka spacji w nowej linii?

Pozdrawiam
TK

[LX'yrs]

W dniu 16.03.2023 o 13:56, Phantom pisze:

Moje pytanie:
Pole ma 5 cm szerokości, ale chyba to niewiele daje, bo zapewne nie
wiesz ile wyrazów zmieści się w pierwszej linijce w polu tekstowym
raportu, by dodawać spacje w drugiej linijce, a potem sprawdzać ile
wyrazów zmieści się w następnej linijce itd.

Czyli Twoim problemem nie jest jak dodać spacje po Chr$(13) & Chr$(10),
bo spacje (tutaj 5 spacji) możesz dodać w następujący sposób:
vbNewLine & Space(5),
ale znalezienie miejsca podziału tekstu i ilości spacji w następnej
linijce pola tekstowego raportu by tekst ładnie wyglądał.


--
Pozdrawiam
LX'yrs

--
Pozdrawiam
LX'yrs

[Phantom]

No tak, słusznie.