Calendar Reports

[Guest]

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

Thanks!

 

[Duane Hookom]

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

 

[Guest]

THANK YOU! Works great!

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

 

[Guest]

What is Duane Hookom's calendar reports? This sounds like it has a potential
to be useful to me!

 

[Duane Hookom]

There are samples for download at
http://www.invisibleinc.com/divFiles.cfm?divDivID=4.

 

[Guest]

I appreciate your reply - looks like some worthy stuff there!