如何在Access报表中动态统一每条记录文本框的高度为最大值

我太懂这个坑了——Access报表里的控件开启Can Grow/Can Shrink后，在Detail_Format事件里根本读不到它们根据内容调整后的真实高度，因为这个事件触发时，Access还没完成内容的渲染和高度计算呢，你读到的只是设计视图里的固定高度。

给你换个思路：不要读控件高度，而是直接计算文本内容需要的显示高度，Access自带的TextHeight方法可以帮你搞定这个。

解决方案代码 #

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
    Dim questionText As String
    Dim lookingForText As String
    Dim questionHeight As Integer
    Dim lookingForHeight As Integer
    Dim maxHeight As Integer
    
    ' 处理空值，避免计算时出错
    questionText = Nz(Me.txtQuestion.Value, "")
    lookingForText = Nz(Me.txtLookingFor.Value, "")
    
    ' 计算文本在当前控件宽度下的实际换行高度
    ' 这里会自动匹配控件的字体、字号和宽度来计算
    questionHeight = Me.TextHeight(questionText)
    lookingForHeight = Me.TextHeight(lookingForText)
    
    ' 取两个高度的最大值，同时保留你原来设置的最小高度100
    maxHeight = Max(Max(questionHeight, lookingForHeight), 100)
    
    ' 统一设置三个文本框的高度
    Me.txtQuestion.Height = maxHeight
    Me.txtLookingFor.Height = maxHeight
    Me.txtNotes.Height = maxHeight
End Sub

关键注意事项 #

• 确保txtQuestion和txtLookingFor的宽度是固定的（不要开启自动宽度调整），因为TextHeight是根据控件当前宽度来计算换行后的总高度的，宽度变了计算结果也会不准。
• 保持三个文本框的Can Grow和Can Shrink都设为Yes，这样设置的高度才能正常生效。
• 如果你的文本框有内边距或者特殊格式，可能需要给计算出的高度加个小偏移（比如maxHeight = maxHeight + 10），让显示更贴合。

为什么原来的代码不工作？ #

Detail_Format事件是Access在准备格式化细节节时触发的，这时候控件还没完成内容的渲染和高度调整，你读取到的Height值只是设计视图里的固定值，不是内容撑开后的真实高度。而用TextHeight提前计算内容需要的高度，就能完美绕过这个时序问题。

内容的提问来源于stack exchange，提问作者Anthony Williams