Basic Access Question About Reports

[Tanya]

Using Access 97', is there anyway to put gridlines on a
report?

 

[Immanuel Sibero]

Hi

Try the Border Style and Border Width of all the fields in the report.

HTH,
Immanuel Sibero

 

[Danny J. Lesandrini]

You can use the Line() function in VB to draw a grid across the entire
page, but that will take some coding.

Alternatively, you can put a grid in the detail section by placing line
objects, horizontally and vertically where you need them. Play with it.

 

[Duane Hookom]

Regarding the line method, the following code will draw a calendar for the
current month. It uses the Line method.
Private Sub Report_Page()
Dim lngDayHeight As Long
Dim lngDayWidth As Long
Dim datRptDate As Date
Dim intStartWeek As Integer
Dim lngTopMargin As Long
Dim dat1stMth As Date
Dim datDay As Date
Dim lngTop As Long
Dim lngLeft As Long
datRptDate = Date
dat1stMth = DateSerial(Year(datRptDate), Month(datRptDate), 1)
intStartWeek = DatePart("ww", dat1stMth)
lngDayHeight = 2160 'one & half inch
lngDayWidth = 1440 'one inch
lngTopMargin = 720 'half inch
Me.FontSize = 22
'loop through all days in month
For datDay = dat1stMth To DateAdd("m", 1, dat1stMth) - 1
'find the top and left corner
lngTop = (DatePart("ww", datDay) - intStartWeek) * _
lngDayHeight + lngTopMargin
lngLeft = (Weekday(datDay) - 1) * lngDayWidth
If Weekday(datDay) = 1 Or Weekday(datDay) = 7 Then
Me.DrawWidth = 8
Else
Me.DrawWidth = 1
End If
'draw a rectangle for day
Me.Line (lngLeft, lngTop)-Step _
(lngDayWidth, lngDayHeight), , B
Me.CurrentX = lngLeft + 50
Me.CurrentY = lngTop + 50
Me.Print Day(datDay)
Next
End Sub

 

[Henry]

Putting lines in reports or shading every other row,
etc., is easy. Read "Access 2000 Developer's Handbook"
by Ken Getz, published by SYBEX. this book has excelent
examples, how to's and a CD with it all. The chapters on
developing reports are great.

Cheers,
Henry