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
--
Duane Hookom
Microsoft Access MVP
"fredg" wrote:
> On Mon, 27 Jul 2009 17:47:35 -0400, Joseph Greenberg wrote:
>
> > Anybody know how to get an access report to include crop marks? Also, is
> > there a way to print a border to each page?
>
> 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.
> --
> Fred
> Please respond only to this newsgroup.
> I do not reply to personal e-mail
>
|