Thanks Duane,
I modified the code like this:
Dim ctlVar As control
For Each ctlVar In Me.Controls
If ctlVar.visible = True Then
Select Case ctlVar.ControlType
Case acTextBox
On Error Resume Next
If ctlVar.FormatConditions.count = 1 Then
ctlVar.FormatConditions.Delete
End If
ctlVar.ForeColor = RGB(255, 255, 255)
ctlVar.BackColor = RGB(255, 255, 255)
End Select
End If
Next
I'll explain: I have a complex report and my boss asked me to be able to print it without values. and then I thought about this trick.
Thanks a lot,.
Domenico
For Each ctlVar In Me.Controls
If ctlVar.visible = True Then
Select Case ctlVar.ControlType
Case acTextBox
On Error Resume Next
If ctlVar.FormatConditions.count = 1 Then
ctlVar.FormatConditions.Delete
End If
ctlVar.ForeColor = RGB(255, 255, 255)
ctlVar.BackColor = RGB(255, 255, 255)
End Select
End If
Next
I'll explain: I have a complex report and my boss asked me to be able to print it without values. and then I thought about this trick.
Thanks a lot,.
Domenico
_._,_._,_
Groups.io Links:
You receive all messages sent to this group.
View/Reply Online (#115472) | Reply To Group | Reply To Sender | Mute This Topic | New Topic
Your Subscription | Contact Group Owner | Unsubscribe [sugeng.panjalu.access@blogger.com]
_._,_._,_
Tidak ada komentar:
Posting Komentar