Question

我有一个包含组标题的Access报告（培训状态良好和不良），其背景颜色由On Paint事件中的代码设置。

Private Sub GoodBadHeader_Paint()
Dim lngAmber As Long, lngGreen As Long
lngGreen = RGB(76, 204, 79)
lngAmber = RGB(255, 194, 14)

If Me.txtTngStatus.Value = "Good" Then
   Me.GoodBadHeader.BackColor = lngGreen
   Me.GoodBadHeader.AlternateBackColor = lngAmber
Else
   Me.GoodBadHeader.BackColor = lngAmber
   Me.GoodBadHeader.AlternateBackColor = lngGreen
End If
End Sub

报告视图和布局视图中的颜色很好，但在打印预览或打印在纸上时不是。

Answer 1

打印视图的单独格式在On Format事件中完成。

它应该只需从那里调用你现有的sub：

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

    Call GoodBadHeader_Paint

End Sub

报告打印预览中的标题背景颜色不正确

1 个答案: