Vba 动态更改文本框大小的Access报表

是否可以有一个灵活的文本宽度和高度的报告？我在这篇文章中有时有两个词，有时有几百个。我想要第一个小文本，第二个大文本。我如何做到这一点？

使用

Detail\u格式

事件

它在每行之前激发，您可以根据文本的长度更改格式

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
    If Len(Field1) < 10 Then
        txtField1.FontSize = 18
    Else
        txtField1.FontSize = 12
    End If
End Sub

Private Sub Detail_格式（取消为整数，FormatCount为整数）
如果Len（Field1）<10，则
txtField1.FontSize=18
其他的
txtField1.FontSize=12
如果结束
端接头

我建议您将文本框大小设置为您认为最佳的大小，并使用

CanShrink

和

CanGrow

属性（点击文本框，然后打开属性窗口，您可以在那里找到它们）

---

CanGrow

属性指示文本框的大小是否可以根据其内容垂直增加。类似地，

CanShrink

根据文本框的内容降低文本框的高度。是更好地理解这两个属性的链接。

查询中是否有一个字段可以被引用以确定文本框的大小？您可以选择在运行时通过VBA调整文本框的大小，也可以有两个不同的文本框，并将

Visible

属性与正在使用的字段一起设置。这听起来与下面线程中的问题完全相同，提供了一个很好的答案。请参阅您答案的补充部分中的问题标题。更改

文本框大小

，OP也希望在第一个文本框中有

小文本

，在第二个文本框中有

大文本

。