JohnHarkins
MIS
Hi!
I was successful drawing a border around the page of an Access 2000 report, thanks to an article for printing a telephone directory from Access 97 that I found in PCTech from PC Magazine (4/21/98); however the gutter-line that I wanted did not appear. Moreover, I tried looking up the parameters that are to be sent to the line "verb" in VBA, but couldn't figure out how to make the line bolder or even to find out what my options are.
So, please tell me:
(1) How to find out what "me.line" in the below code can have as options (e.g., setting boldness) & where I look up the information in the on-line help and
(2) How to get the gutter-line to appear.
private sub report_page()
dim 21, y1, x2, y2 as integer
' draw a border around the page
Me.Line (0,0)-(me.ScaleWidth,me.ScaleHeight), , B
'set the coordinates and draw a line down the middle of the page
x1 = int(me.ScaleWidth / 2) ' middle of the page
y1 = me.section(acPageHeader).Height ' start just below pageheader
x2 = x1 + 1 + me.DrawWidth
y2 = me.ScaleHeight
Me.Line (x1, y1) - (x2, y2), , B ' draw the line
End Sub
Thanks,
John John Harkins
I was successful drawing a border around the page of an Access 2000 report, thanks to an article for printing a telephone directory from Access 97 that I found in PCTech from PC Magazine (4/21/98); however the gutter-line that I wanted did not appear. Moreover, I tried looking up the parameters that are to be sent to the line "verb" in VBA, but couldn't figure out how to make the line bolder or even to find out what my options are.
So, please tell me:
(1) How to find out what "me.line" in the below code can have as options (e.g., setting boldness) & where I look up the information in the on-line help and
(2) How to get the gutter-line to appear.
private sub report_page()
dim 21, y1, x2, y2 as integer
' draw a border around the page
Me.Line (0,0)-(me.ScaleWidth,me.ScaleHeight), , B
'set the coordinates and draw a line down the middle of the page
x1 = int(me.ScaleWidth / 2) ' middle of the page
y1 = me.section(acPageHeader).Height ' start just below pageheader
x2 = x1 + 1 + me.DrawWidth
y2 = me.ScaleHeight
Me.Line (x1, y1) - (x2, y2), , B ' draw the line
End Sub
Thanks,
John John Harkins