[AccessD] Report line drawing

This code was originally written for Access 2, but should still work.


Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
'Use this code in the detail section of a report to print vertical lines
'that size to the detail section height automatically.

Dim X1 As Single
Dim Offset As Single

''Convert GridX to Twips
'    Offset = 1440 / Me.GridX
''Compute X1 in Twips
'    X1 = [MyReportField].Left - Offset
''Draw the line with clipping
'    Me.Line (X1, 0)-(X1, 10000)
End Sub

To add extra lines, add values for  X2....Xn

Hope This helps.

Cheers
Bryan




On 13/03/2012 10:46 AM, Rocky Smolin wrote:
> I assume you're changing the horizontal coordinate of the starting point?
>
> Rocky
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust
> Sent: Monday, March 12, 2012 3:59 PM
> To: Access Developers discussion and problem
> Subject: [AccessD] Report line drawing
>
> OK, Guys,
>
> I'm trying to draw vertical lines in the detail section of a report using
> the Line method of the report object.  For some reason, the code processes,
> but I'm only seeing the first line!  Any ideas?
>
> Charlotte
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>