Calendar Reports

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I've used Duane's calendar report but would like to darken the vertical
lines. Is there any way to do this?

Thanks!
 
You can set the line width by setting the DrawWidth prior to actually
drawing the lines.

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
Dim lngHeight As Long 'store the height of tallest control
Dim i As Integer
Dim lngLeft As Long
For i = 1 To 5
'compare heights
If Me("srpt" & i).Height > lngHeight Then
lngHeight = Me("srpt" & i).Height
End If
Next
'add the height of other control
lngHeight = lngHeight + Me.txtDay1.Height
'set the line width
Me.DrawWidth = 20
'draw the lines
For i = 0 To 5
lngLeft = i * Me.srpt1.Width
Me.Line (lngLeft, 0)-(lngLeft, lngHeight)
Next
End Sub
 
THANK YOU! Works great!

Duane Hookom said:
You can set the line width by setting the DrawWidth prior to actually
drawing the lines.

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
Dim lngHeight As Long 'store the height of tallest control
Dim i As Integer
Dim lngLeft As Long
For i = 1 To 5
'compare heights
If Me("srpt" & i).Height > lngHeight Then
lngHeight = Me("srpt" & i).Height
End If
Next
'add the height of other control
lngHeight = lngHeight + Me.txtDay1.Height
'set the line width
Me.DrawWidth = 20
'draw the lines
For i = 0 To 5
lngLeft = i * Me.srpt1.Width
Me.Line (lngLeft, 0)-(lngLeft, lngHeight)
Next
End Sub
Click to expand...
 
What is Duane Hookom's calendar reports? This sounds like it has a potential
to be useful to me!
 
Back
Top