如何在Access报表中捕获文本框的Grow事件通知？

Access确实没有内置的文本框Grow事件，但可以通过计算文本内容的实际显示尺寸，对比文本框的固定大小，实现动态调小字号的需求。以下是具体实现方案：

核心思路 #

利用报表节的Format事件（文本框所在节，比如Detail节），在报表渲染时计算文本内容的宽度/高度，若超出文本框的固定尺寸，则逐步减小字号，直到内容能完全容纳在文本框内。

具体实现代码 #

在报表的Detail节Format事件中添加以下VBA代码（需替换txtMyTextBox为你的文本框名称）：

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
    Dim originalFontSize As Single
    Dim currentText As String
    Dim textBoxWidth As Single
    Dim textBoxHeight As Single
    Dim textWidth As Single
    Dim textHeight As Single
    
    ' 初始化变量
    originalFontSize = Me.txtMyTextBox.FontSize
    currentText = Nz(Me.txtMyTextBox.Value, "")
    textBoxWidth = Me.txtMyTextBox.Width
    textBoxHeight = Me.txtMyTextBox.Height
    
    ' 空内容直接恢复初始字号
    If currentText = "" Then
        Me.txtMyTextBox.FontSize = originalFontSize
        Exit Sub
    End If
    
    ' 重置字号为初始值，开始循环调整
    Me.txtMyTextBox.FontSize = originalFontSize
    textWidth = Me.txtMyTextBox.TextWidth(currentText)
    textHeight = Me.txtMyTextBox.TextHeight(currentText)
    
    ' 逐步减小字号，直到内容适配文本框或达到最小字号限制
    Do While (textWidth > textBoxWidth Or textHeight > textBoxHeight) And Me.txtMyTextBox.FontSize > 6
        Me.txtMyTextBox.FontSize = Me.txtMyTextBox.FontSize - 0.5
        textWidth = Me.txtMyTextBox.TextWidth(currentText)
        textHeight = Me.txtMyTextBox.TextHeight(currentText)
    Loop
End Sub

关键注意事项 #

• 确保文本框的CanGrow和CanShrink属性均设置为No，避免内容自动扩展导致布局偏移。
• TextWidth和TextHeight方法基于报表的打印机上下文计算尺寸，结果更贴合实际打印效果，适合预印表单的固定位置需求。
• 可根据需求调整字号步长（比如改为每次减1）和最小字号阈值（代码中设为6，可自行修改）。
• 若文本内容过长，即使最小字号仍无法容纳，可额外添加截断逻辑（比如在文本末尾加...），或保持最小字号显示。

替代方案：Windows API实现（不推荐） #

虽然可以通过Windows API的GetTextExtentPoint32函数获取文本精确尺寸，但需要手动处理设备上下文和字体设置，操作复杂且不如内置方法便捷，因此更推荐使用上述内置方案。

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