Crop marks?

J

Joseph Greenberg

Anybody know how to get an access report to include crop marks? Also, is
there a way to print a border to each page?
 
F

fredg

Anybody know how to get an access report to include crop marks? Also, is
there a way to print a border to each page?
Click to expand...

I would suppose you could simply place Pipe and Underscore
characters "_|" at each corner of the report, But then you must
start and stop the actual text and data of the report within these
marks.

_| |_
Text here
Text here
_ _
| |

There is no Border property, as such, for a report, but you could use
the Line method in the Report's Print event to place lines
around the report.
I believe there is an example of code in VBA help to place a border
around the page. You can use it.
Look up the "Line Method".

Remember most modern printers have minimum no print margin areas.
 
D

Duane Hookom

This is the code based on 1" top and bottom margins.

Private Sub Report_Page()
Dim intMarkLength As Integer
Dim intPageHeight As Integer
intMarkLength = 100
intPageHeight = 9 * 1440
Me.Line (0, 0)-Step(intMarkLength, 0)
Me.Line (0, 0)-Step(0, intMarkLength)
Me.Line (Me.Width - intMarkLength, 0)-Step(intMarkLength, 0)
Me.Line (Me.Width, 0)-Step(0, intMarkLength)
Me.Line (0, intPageHeight)-Step(intMarkLength, 0)
Me.Line (0, intPageHeight - intMarkLength)-Step(0, intMarkLength)
Me.Line (Me.Width - intMarkLength, intPageHeight)-Step(intMarkLength, 0)
Me.Line (Me.Width, intPageHeight - intMarkLength)-Step(0, intMarkLength)
End Sub
 
Top