A Microsoft Office (Excel, Word) forum. OfficeFrustration

If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below.

Go Back   Home » OfficeFrustration forum » Microsoft Access » Setting Up & Running Reports
Site Map Home Register Authors List Search Today's Posts Mark Forums Read  

Access 2003 Report generation



 
 
Thread Tools Display Modes
  #1  
Old May 14th, 2010, 02:44 PM posted to microsoft.public.access.reports
hlamo
external usenet poster
 
Posts: 1
Default Access 2003 Report generation

I have a report that contains the .Line method to draw a series of boxes
around controls that can vary in size depending on their data content. I
would like to have each box shape filled with a colour suitable to its
control data, rather than have a back-fill for the control data. Can you
please give me an idea as to how to code it. I have tried the .FillColor
property but without success. Thanks.
  #2  
Old May 14th, 2010, 07:33 PM posted to microsoft.public.access.reports
Duane Hookom
external usenet poster
 
Posts: 7,177
Default Access 2003 Report generation

It would have helped if you had provided your existing code. However, I have
been able to shade a background with code like:

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
Dim intMaxHeight As Integer
Dim ctl As Control
Dim lngHilite As Long
lngHilite = 10092543 'pale yellow
'Find highest control in Detail section _
that has a tag property of "Border"
For Each ctl In Me.Section(0).Controls
If ctl.Tag = "Border" Then
If ctl.Height intMaxHeight Then
intMaxHeight = ctl.Height
End If
End If
Next
'Draw a box around each control in Detail _
that has a tag property of "Border"
For Each ctl In Me.Section(0).Controls
If ctl.Tag = "Border" Then
'replace conditional formatting making the _
background of City=London pale yellow
If ctl.Name = "City" And ctl.Value = "London" Then
Me.Line (ctl.Left, ctl.Top)- _
Step(ctl.Width, intMaxHeight), lngHilite, BF
End If
Me.Line (ctl.Left, ctl.Top)- _
Step(ctl.Width, intMaxHeight), vbBlack, B
End If
Next
End Sub

--
Duane Hookom
Microsoft Access MVP


"hlamo" wrote:

I have a report that contains the .Line method to draw a series of boxes
around controls that can vary in size depending on their data content. I
would like to have each box shape filled with a colour suitable to its
control data, rather than have a back-fill for the control data. Can you
please give me an idea as to how to code it. I have tried the .FillColor
property but without success. Thanks.

 




Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is Off
HTML code is Off
Forum Jump


All times are GMT +1. The time now is 02:14 PM.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 OfficeFrustration.
The comments are property of their posters.