Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Page border missing sides

Status
Not open for further replies.

JasonSummers

Programmer
Sep 11, 2002
26
US
I have used the following code for my access 2000 report to generate a report (page) border.

Private Sub Report_Page()
Me.Line (0, 0)-(Me.ScaleWidth, Me.ScaleHeight), , B
End Sub

However, the right side border (and sometimes the top or bottom) does not show. It does not print on another page, and it is missing regardless of how the remainder of the page dimensions are set.

This code works fine for reports set to PORTRAIT view, but I have this problem when I set my page to LANDSCAPE view.

Another thing, it may just not be showing in the print preview of the report, because when I print to Adobe, the borders show up just fine.

Any suggestions?
 
I would try set the DrawWidth a bit higher. You might also attempt to move the lines in a little from the sides, top, and bottom.

Duane MS Access MVP
[green]Ask a great question, get a great answer.[/green] [red]Ask a vague question, get a vague answer.[/red]
[green]Find out how to get great answers faq219-2884.[/green]
 
dhookom,

Thanks for the input. I tried enlarging the line size initially without success. I also tried offsetting the draw, left, right, up, down.
Since it prints fine when I print to adobe, I'm thinking that it is drawing the lines correctly, but the print view in access may have a glitch. As I recall, this is not the first time I have had this problem. I’m just surprised that if it where an Access glitch, there are no other post to be found on the internet.
Thanks
Jason
 
See what happens if you use this code
Code:
Private Sub Report_Page()
    Me.DrawWidth = 50
    Me.Line (20, 20)-(Me.ScaleWidth - 20, Me.ScaleHeight - 20), vbRed, B
End Sub

Duane MS Access MVP
[green]Ask a great question, get a great answer.[/green] [red]Ask a vague question, get a vague answer.[/red]
[green]Find out how to get great answers faq219-2884.[/green]
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top