【问题标题】:resizing a subreport in ms access在 ms 访问中调整子报表的大小
【发布时间】:2021-05-12 21:27:50
【问题描述】:

我有一个包含子报告的 MS Access 表单。
这是为了在您启动打印时允许对您将获得的内容进行一种动态预览(实际上它是一种允许在不同打印布局之间进行选择的表单)。 假设我的报告是这样的:

它也有非固定字段,但与此问题无关。 该报告非常小,当以表格形式呈现时,我想应用某种缩放,实际上我找不到。 即使子窗体/子报表控件比报表大得多,似乎也不存在允许您调整报表大小的属性。

结果是这样的:

我尝试将默认视图设置为打印预览,可视化没有变化。
我希望切换到打印预览可以更好地控制缩放(就像您启动“标准”打印预览时实际发生的那样)。
我尝试将 FitToPage 设置为 true。
我试图将 AllowReportView 设置为强制打印预览,但没有成功。在这一点上,我认为在表单内的报告中根本不允许打印预览。 是否有一些(或其他)方法来解决这个小问题?
提前感谢
附言如果无法进行缩放,我至少会突出显示真实的报表区域,因为在这种情况下,仅显示子表单/子报表控件的边框会造成混淆。

【问题讨论】:

    标签: vba ms-access report


    【解决方案1】:

    正确,表单上的报表只能在 ReportView 中显示。我认为您无法通过任何方法获得“缩放”功能。至于报表区域的'highlight',代码可以在报表加载时设置每个报表部分的Backcolor属性,如:

    Private Sub Report_Load()
    With Me
        If .CurrentView = 6 Then
            .ReportHeader.BackColor = vbYellow
            .ReportFooter.BackColor = vbYellow
            .PageHeaderSection.BackColor = vbYellow
            .PageFooterSection.BackColor = vbYellow
            .GroupHeader0.BackColor = vbYellow
            .GroupFooter1.BackColor = vbYellow
            .Detail.BackColor = vbYellow
        End If
    End With
    End Sub
    

    可能希望将所有控件设置为透明的 BackStyle。

    或者不设置背景色,而是在报表上使用背景图片(水印)。

    【讨论】:

    • 只是备注:您可以使用AcCurrentView.acCurViewReportBrowse 而不是6,这应该使其更具可读性。 ;-)
    猜你喜欢
    • 1970-01-01
    • 1970-01-01
    • 1970-01-01
    • 1970-01-01
    • 1970-01-01
    • 1970-01-01
    • 1970-01-01
    • 1970-01-01
    • 2018-06-04
    相关资源
    最近更新 更多