Crop marks?

  • Thread starter Thread starter Joseph Greenberg
  • Start date Start date
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?
 
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.
 
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
 
Back
Top