Line Method Issues

[EddyLLC]

I,m using the following code to draw a line on a report. Is there a way to adjust the thickness of the line, 1pt 2pt or even just bold the line?

Me.Line (0.13 * 1440, 2500)-(7.7 * 1490, 2500)

 

[Remou]

You can set the DrawWidth property:

[tt] Set rpt = Me
rpt.DrawWidth = 10 'pixels[/tt]

 

[EddyLLC]

Works great! Thanks so much.

Eddy

 

[dorlesky]

Is there a way to change the point size of the line depending on whether or not it is the last record on as report?

 

[Remou]

Try this:

Option Compare Database
Dim intCount
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If Me.CurrentRecord = intCount Then
    Me.lnLine.BorderWidth = 2
End If
End Sub

Private Sub Report_Open(Cancel As Integer)
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset(Me.RecordSource)
rs.MoveLast
intCount = rs.RecordCount
rs.Close
End Sub

 

[Remou]

Oops. Forgot the Else:

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If Me.CurrentRecord = intCount Then
    Me.lnLine.BorderWidth = 2
Else
    Me.lnLine.BorderWidth = 0
End If
End Sub

 

[dorlesky]

I'm sorry Remou:

The code you provided works fine, but I was looking for a way to change the DrawWidth of the last record on each page, rather then the report end.

Regards,

And Thanks In Advance....

 

[Remou]

You can check the Report.Top position.

If Me.Report.Top = 11311 Then 
    Me.lnLine.BorderWidth = 2
Else
    Me.lnLine.BorderWidth = 0
End If

 

[dorlesky]

I'm sorry Remou:

I have a report where the detail records carry over to the next page. The line drawn at the bottom of each record is "Hairline". For the last record on "Page 1 for instance", what code would I use to make that last record 1pt before carry-ing on to "Page 2".

Regards,