如何以打印预览格式查看表单中嵌入的报表

时间:2014-07-24 19:24:54

标签: access-vba ms-access-2010

我想知道如何确保在表单打开时更新我在表单中嵌入的报表,以便在打印预览模式下报表是新鲜的。特别是,我使用此报告来显示我使用矩形形状创建的条形图,这些形状根据绑定到报告的表中的字段中的值进行更改。不幸的是,虽然我有嵌入式报告集的默认视图来打印预览,而代码却改变了在' On格式'上设置的矩形长度。事件,代码不会更新报告。也许on格式事件需要以其他方式触发。以下是我的代码。谢谢

Private Sub Corpo_Format(Cancel As Integer, FormatCount As Integer)

Dim sngLunghezza As Single

    sngLunghezza = retTotale.Width * txtMedia / 100
    retPercentuale.Width = sngLunghezza

  If txtMedia < 50 Then
             retPercentuale.BackColor = vbRed

    Else
        retPercentuale.BackColor = vbGreen

  End If

End Sub

1 个答案:

答案 0 :(得分:0)

我能提供的最好的解决方案是:我认为您编写代码的事件并未触发,一条建议可能是将您的代码设置为报告的开放或加载事件