在Access报表设计时，当文本框内容可能会占据两行时，需要把文本框移上一定空间，以实现内容垂直居中，可以在主体格式化时判断并移动控件。代码如下： Option Compare Database Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)    dTop = -120    FixControl 控件名称1, , dTop    FixControl 控件名称2, , dTop    FixControl 控件名称3, , dTopEnd Sub Private Sub FixControl(c, Optional dLeft = 0, Optional dTop = 0, Optional dWidth = 0, Optional dHeight = 0)    FontName = c.FontName    FontSize = c.FontSize    If TextWidth(c) > c.Width Then        c.Move c.Left + dLeft, c.Top + dTop, c.Width + dWidth, c.Height + dHeight    End IfEnd Sub