Stephen Lebans said:
Increase the current Resolution(Quality) setting on the Ink Jet Printer
Driver.
--
HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.
Stephen, Rick,
Thank you for the support so far. It is appreciated. Unforntunately the
lines are not printed on my laser printer at work either. I made the changes
that you guys recommended, upped the quality, changing line colour/thickness
etc. but without success.
To my mind there are three possiblities:
1) I am the unluckiest guy in the world and have two printers that exhibit
problems printing the lines as you suggested.
2) There is a bug in access that means these lines will never print.
3) I am doing something wrong in my code.
Option 1 seems unlikely the printers are from different manufacturers, one
is a local printer the other a network printer. One is an inkjet printer one
is a laser. There are enough differences between the two that I would have
expected at least one to work.
Option 2 seems highly unlikely, there would be a lot more people complaining!
So that leaves option 3, me! To that end I have included the code that I am
using to draw the lines around a group of controls in the detail section of
the report. This code lives in the report "OnPrint" event.
Me.DrawStyle = 1 ' 0 = (Solid Line) thru 6 = (invisible line)
' ALL NUMBERS ARE PIXELS...
Me.DrawWidth = 20 ' set the thickness of the line
' Draw a box (the border!) around the page.
Me.Line (lbltitle.Left, 0)-(lbltitle.Left, Me.Height)
Me.Line (lbltitle.Width + lbltitle.Left, 0)-(lbltitle.Width + lbltitle.Left,
Me.Height)
Me.Line (Me.Text6.Width + Me.Text6.Left, 0)-(Me.Text6.Width +
Me.Text6.Left,Me.Height)
Does this code look like it would work? As I say in print preview
everything is perfect. If only it would transfer to paper!
As always any and all help appreciated,
Gareth.