MS Access VBA：如何保留布局视图中报表及控件的尺寸修改

这个问题我之前也碰到过！核心原因是Access的布局视图和设计视图工作机制完全不同：布局视图里的控件大多被嵌套在布局容器（堆叠/表格布局）中，容器会自动管控控件的尺寸和位置，你用VBA直接改Width会被立刻覆盖；而且布局视图更偏向“带数据的预览调整”，修改默认不会直接持久化到报表的底层设计里，而设计视图才是真正修改报表设计定义的模式。

下面给你两个靠谱的解决方案：

方案1：自动切换到设计视图修改（最稳定） #

我们可以在代码里先记录当前的视图模式，自动切到设计视图完成修改，再切回原视图。这样修改会直接保存到报表设计中，不管你一开始是在布局还是预览视图。

修改后的代码：

Public Sub ResizeReport()
    Dim rr As Report
    Dim cc As Control
    Dim originalView As AcView
    
    ' 先检查有没有活动报表
    If Screen.ActiveReport Is Nothing Then
        MsgBox "请先打开一个报表再运行！"
        Exit Sub
    End If
    
    Set rr = Screen.ActiveReport
    ' 记录当前的视图模式
    originalView = rr.CurrentView
    
    ' 出错时确保切回原视图，避免卡在设计视图
    On Error GoTo Cleanup
    
    ' 关闭当前报表，以设计视图重新打开
    DoCmd.Close acReport, rr.Name, acSaveNo
    DoCmd.OpenReport rr.Name, acViewDesign
    
    Set rr = Screen.ActiveReport
    ' 遍历修改所有控件（跳过布局容器本身）
    For Each cc In rr.Controls
        If cc.ControlType <> acLayout Then
            cc.Width = 1 * 1440
        End If
    Next
    ' 修改报表宽度
    rr.Width = 5 * 1440
    
    ' 保存修改
    DoCmd.Save acReport, rr.Name
    
Cleanup:
    ' 切回原来的视图
    If originalView <> acViewDesign Then
        DoCmd.Close acReport, rr.Name, acSaveNo
        Select Case originalView
            Case acViewLayout
                DoCmd.OpenReport rr.Name, acViewLayout
            Case acViewPreview
                DoCmd.OpenReport rr.Name, acViewPreview
        End Select
    End If
    ' 释放对象
    Set rr = Nothing
    Set cc = Nothing
End Sub

方案2：解除控件的布局绑定（适合不需要布局的场景） #

如果你不需要布局容器的自动排版功能，可以先解除控件和布局的关联，这样在布局视图中修改尺寸也能生效并保存：

Public Sub ResizeReport()
    Dim rr As Report
    Dim cc As Control
    
    If Screen.ActiveReport Is Nothing Then
        MsgBox "请先打开一个报表再运行！"
        Exit Sub
    End If
    
    Set rr = Screen.ActiveReport
    
    For Each cc In rr.Controls
        ' 解除控件与布局容器的绑定
        If Not cc.Layout Is Nothing Then
            cc.Layout = Nothing
        End If
        ' 修改控件宽度
        cc.Width = 1 * 1440
    Next
    ' 修改报表宽度
    rr.Width = 5 * 1440
    
    ' 手动保存修改
    DoCmd.Save acReport, rr.Name
End Sub

⚠️ 注意：解除布局绑定后，控件就不会再被自动调整位置和尺寸了，如果你之后需要用布局功能，得重新添加布局。

额外说明 #

• 设计视图之所以能保存修改，是因为它直接操作报表的设计定义，布局容器的约束在这里是可选的，修改后只要保存就会永久生效。
• 布局视图的修改如果要手动保存，需要点击Access界面左上角的“保存”按钮，但即使保存，只要控件还在布局容器里，你用VBA改的尺寸还是会被容器覆盖。

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