如何在access报表中实现字体差别

来源:互联网 时间:2016-01-03

以下代码加在“人员情况 子报表”中可以实现正式职工和临时工的字体差别。

Private Sub 主体_Print(Cancel As Integer, PrintCount As Integer)

If DLookup("[编制]", "人员情况", "[姓名]='" + Me.姓名 + "'") = "正式" Then

Me.[姓名].FontName = "宋体"

Me.[姓名].FontWeight = 700

Else

Me.[姓名].FontName = "仿宋_GB2312"

Me.[姓名].FontWeight = 400

End If

End Sub

相关阅读:
Top