Have you ever had a problem printing lines in color from VB6 (SP4)? The following code works correctly on a PictureBox, but prints black on the Printer (HP LaserJet and Lexmark):
Object.ForeColor = vbRed Object.Line (X1, Y1)-(X2, Y2) ' red on PictureBox, black on Printer Object.Print "Text" ' ok on both PictureBox and Printer
The solution is to add the following color argument to your statement:
Object.ForeColor = vbRed Object.Line (X1, Y1)-(X2, Y2), vbRed ' ok on both PictureBox and Printer Object.Print "Text" ' ok on both PictureBox and Printer