Pete,
See if any of this is of any use --
Steve
PC Datasheet
Borders, Circles and Lines in a Report
Access has Line and Rectangle tools you can use to create simple graphic effects
on reports (and you can also make text box and label borders visible, as I did
for the Year text box in the Books by Year report). However, you can also create
special graphic effects by using a set of antiquated DOS methods, functions and
properties that have been carried over into Access VBA. Be warned: these
techniques are not easy to use, and some of them can be excruciatingly slow in
operation (though if you have a fast computer, that won't be so problematic). I
won't go into detail about using the DOS print techniques; refer to Access Help
topics for the Line and Circle method for details (possibly more details than
you want), and some examples of usage.
Vertical Line Next To A Textbox
If you want a vertical line next to a textbox with its CanGrow property set to
Yes, and you want that line to be the same height as the text box, you can use
the Line method and the RGB function (together with some of the more obscure
report properties) to achieve this result. The code below runs from the Print
event of the report's Detail section, and the figure shows the report with the
green line next to a txtNotes text box which has expanded because it contains a
large amount of text.
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
Dim sngTop As Single
Dim sngLeft As Single
Dim sngHeight As Single
Dim sngBottom As Single
sngTop = Me![txtNotes].Top
sngHeight = Me![txtNotes].Height
sngLeft = 2300
sngBottom = sngTop + Me![txtNotes].Height
Me.DrawStyle = 6
Me.DrawWidth = 12
Me.Line (sngLeft, sngTop)-(sngLeft, _
sngBottom), RGB(0, 255, 0)
End Sub
Circle
The Circle method is the only way you can draw a circle, arc or ellipse on an
Access report (unless you want to create it in Paintbrush and place it in an
Image control). The sample code below, running from the report's Page event
procedure, draws a red quarter-circle (which could possibly be used as a logo)
on a report:
Private Sub Report_Page()
Me.DrawWidth = 500
Me.Circle (25, 25), 2000, 255
End Sub
Border
A final DOS print effect is to place a border around the entire report page, as
in the code below, which also runs from the report's Page event procedure:
Private Sub Report_Page()
Me.Line (1, 1)-(Me.ScaleWidth, Me.ScaleHeight), , B
End Sub
"PeteCresswell" <Go**********@FatBelly.com> wrote in message
news:74**************************@posting.google.c om...
Have you looked at the org chart in Excel to see if that will work for you?
No. Will do. Thanks...
(DFS, the data is dynamic)
