Border

  • Thread starter Thread starter BW
  • Start date Start date
B

BW

Is there a simple way to apply a border around each page of an access
report?

Brent
 
You can use the Line method in the report's Page event procedure ...

Private Sub Report_Page()

Dim sngTop As Single, sngLeft As Single
Dim sngWidth As Single, sngHeight As Single

Me.ScaleMode = 3
sngTop = Me.ScaleTop + 5
sngLeft = Me.ScaleLeft + 5
sngWidth = Me.ScaleWidth - 10
sngHeight = Me.ScaleHeight - 10
Me.Line (sngTop, sngLeft)-(sngWidth, sngHeight), vbBlack, B

End Sub

See Line Method in the help files for more information.
 
Thanks

Brent


Brendan Reynolds said:
You can use the Line method in the report's Page event procedure ...

Private Sub Report_Page()

Dim sngTop As Single, sngLeft As Single
Dim sngWidth As Single, sngHeight As Single

Me.ScaleMode = 3
sngTop = Me.ScaleTop + 5
sngLeft = Me.ScaleLeft + 5
sngWidth = Me.ScaleWidth - 10
sngHeight = Me.ScaleHeight - 10
Me.Line (sngTop, sngLeft)-(sngWidth, sngHeight), vbBlack, B

End Sub

See Line Method in the help files for more information.
Click to expand...
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

remove border around subreport 1
counting records 0
How to create a report border that changes color w/each new secti 1
Crop marks? 2
Cut & Paste in Excel without erasing cell borders? 1
Inconsistent printing of borders in Excel 0
Memo-Fields and Borders 2
I WANT headings to show when no data. 2

Back
Top