【Access小品】第100个是铜像---文本框字号自适应列宽

Charline

请问能不能在报表中也实现字体大小的调整？

我把下面一段代码加到了report_load事件里，运行到读取控件值的时候错误提示参数不正确。

'--------------------------- font size --------------------------
    Dim w As Single
    Dim i As Long
    Dim b As Boolean
   
    Dim n
   
    n = Texte8.FontSize
    w = Texte8.Width / 1440
    Texte8.Enabled = True
    For i = n To 1 Step -1
        b = (Len(Texte8.Value) + 1) * i / 72 - w <= 0
        If b = True Then
            Texte8.FontSize = i
            Exit For
        End If
    Next


谢谢各位前辈的提点呐~~

AnlexanderZhang

是的，请问如何在报表里实现此功能！请大家指教。

李力军2

学习

andliu

强大,学习了.

xxk8077

又来学习了