Fold marks on a report

[lizray]

Does anyone know how I could put small fold marks on a report.

 

[dhookom]

Add code to On Page event property like:

Private Sub Report_Page()
    Dim dblVert As Double    [highlight #FCE94F]'where down the page[/highlight]
    dblVert = 1440 * 5       [highlight #FCE94F]'5 inches from top margin. change as needed[/highlight]
    [highlight #FCE94F]'draw lines[/highlight]
    Me.Line (0, 1440 * 5)-Step(200, 0)
    Me.Line (Me.Width - 200, 1440 * 5)-Step(200, 0)
End Sub

Duane
Hook'D on Access
MS Access MVP

 

[lizray]

Great, Thanks again dhookom