[AccessD] Vertical lines in Reports

no, X is the number of twips (inches * 1440)

IF you tag the controls with something like COLORED

Then place the following code in the report's Detail_Format event
Dim ctl As Control
  Me.ScaleMode = 5
  For Each ctl In Me.Controls
    If ctl.Tag = "Colored" Then
        ctl.BackColor = Highlight
        Me.Line ((ctl.Left / 1440), 0)-((ctl.Left / 1440), 10)
        Me.Line (((ctl.Left + ctl.Width) / 1440), 0)-(((ctl.Left +
ctl.Width) / 1440), 10)
    End If
  Next ctl

You'll get your lines!

David

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Elam, Debbie
Sent: Thursday, April 01, 2004 9:01 AM
To: 'Access Developers discussion and problem solving'
Subject: RE: [AccessD] Vertical lines in Reports


I actually found this jewel buried in a report I inherited when I started at
Jenkens.  Wish I knew who to attribute this to.

Debbie

-----Original Message-----
From: Susan Harkins [mailto:ssharkins at bellsouth.net]
Sent: Thursday, April 01, 2004 10:55 AM
To: 'Access Developers discussion and problem solving'
Subject: RE: [AccessD] Vertical lines in Reports


Saved my bottom too -- was going to post it but you beat me to it. :)

Susan H.

I too have struggled with this for a long time.
I finally went to MS to see what they had to say.
Nothing helped.  When this thread started, I looked back on the items I had
saved.
I found this jewel waiting for me.
It became clear what needed to be done, Debbie Elam posted the below code in
January of this year.  It was so simple...
Thanks Debbie.

Jim


Put this in the detail section on format

Dim X As Single
Me.ScaleMode = 5
Me.DrawWidth = 3
X = 0
Me.Line (X, 0)-(X, 22)
X = 0.9604
Me.Line (X, 0)-(X, 22)
X = 1.9083
Me.Line (X, 0)-(X, 22)
X = 2.7604
Me.Line (X, 0)-(X, 22)
X = 3.6271
Me.Line (X, 0)-(X, 22)
X = 4.3354
Me.Line (X, 0)-(X, 22)
X = 5.2111
Me.Line (X, 0)-(X, 22)
X = 5.95

The value of X is the number of inches from the left you want the line to
be.


--
_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
- JENKENS & GILCHRIST E-MAIL NOTICE - This transmission may be: (1) subject
to the Attorney-Client Privilege, (2) an attorney work product, or (3)
strictly confidential. If you are not the intended recipient of this
message, you may not disclose, print, copy or disseminate this information.
If you have received this in error, please reply and notify the sender
(only) and delete the message. Unauthorized interception of this e-mail is a
violation of federal criminal law.
This communication does not reflect an intention by the sender or the
sender's client or principal to conduct a transaction or make any agreement
by electronic means.  Nothing contained in this message or in any attachment
shall satisfy the requirements for a writing, and nothing contained herein
shall constitute a contract or electronic signature under the Electronic
Signatures in Global and National Commerce Act, any version of the Uniform
Electronic Transactions Act or any other statute governing electronic
transactions.
--
_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com