[RESOLVED] Printing filled boxes with Line Method

[ufdigga]

Hello all. I'm trying to print gray boxes using the Line Method:

'This is supposed to be a gray rectangle with a black border.
Printer.DrawWidth = 10
Printer.FillColor = RGB(50, 50, 50)
Printer.Line (1440*2.0, 1440 * 6.125)-(1440 * 3.0, 1440 * 6.95), , BF
Printer.Line (1440*2.0, 1440 * 6.125)-(1440 * 3.0, 1440 * 6.95), vbBlack, B

I'm getting solid black squares. Any ideas? Is there some sort of printer settings I need to verify/change, or should this print in the correct B&W grayscale on any printer?

Thanks everybody!

[Joacim Andersson]

BF in the Line method will fill the square with the same color you've used to draw the line with. Using just B will fill the square using the FillColor if the FillStyle property is set to vbFSSolid.

'This is supposed to be a gray rectangle with a black border.
Printer.DrawWidth = 10
Printer.FillColor = RGB(50, 50, 50)
Pribter.FillStyle = vbFSSolid
Printer.Line (1440*2.0, 1440 * 6.125)-(1440 * 3.0, 1440 * 6.95), vbBlack, B

[ufdigga]

Perfect! Thanks!