Office中国论坛/Access中国论坛

标题: 小代码，将报表记录每隔一行，显示不同颜色 [打印本页]

作者: 雪野情匆 时间: 2005-9-22 01:19
标题: 小代码，将报表记录每隔一行，显示不同颜色
Option Compare Database

Option Explicit

Dim temp As Integer

Private Sub 主体_Print(cancel As Integer, printcount As Integer)

temp = temp + 1

If (temp Mod 2) = 0 Then

Me.Line (20, 10)-(Me.ScaleWidth - 30, Me.ScaleHeight - 10), RGB(255, 255, 192), BF

Else

Me.Line (20, 10)-(Me.ScaleWidth - 30, Me.ScaleHeight - 10), RGB(213, 204, 187), BF

End If

End Sub

作者: zhengjialon 时间: 2005-9-22 16:36
打印不同色的矩形，好方法，收藏了。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)