🚀 go-pugleaf

Użytkownik "BraZby" <brazby@BEZTEGOpoczta.onet.pl> napisał w wiadomości
news:g84aa9$np9$1@news.onet.pl...
>

POPRAWKA:

[...]

> Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
> Dim lHeightTmp As Long
>
>    With rpt

[...]

>            ' sprawdź, jak wymiar pionowy się zmienił
>            If lHeightTmp > .m_lHeight Then
>                ' nie rób nic, bo wysokość się zwiększyła
>            Else
>                Do
>                    .txtTest.FontSize = .txtTest.FontSize + 1
                                                  ^^^^^^^^^^^^^^^^^^^^^^^^^^
>                    ' wymuś odświeżenie raportu
>                    .txtTest.Visible = False
>                    .txtTest.Visible = True
>                    DoEvents
>                    ' pobierz aktualną wysokość formantu
>                    lHeightTmp = .m_lHeight
>                Loop Until lHeightTmp > m_lHeightBis
>
>                Me.TxtLabel.FontSize = .txtTest.FontSize


                 Me.TxtLabel.FontSize = .txtTest.FontSize -1
                                                   ^^^^^^^^^^^^^^^^^^^^^^^^^
ponieważ wyjście z pętli Do ... Loop następuje po przekroczeniu
rozmiaru  pionowego więc musimy wielkość czcionki zmniejszyć o 1 pt.


-- 
Pozdrowienia
BraZby

PS.
Jest to mój ostatni post przez najbliższe 2 tygodnie.
Wyjeżdżam na urlop.
                    BraZby