Text color change pefore print

[rjasong23]

I have a form with employee information on it that users can print in order to get a quick print-out of any single employee. When the "print" button is chosen though, it uses the following function:

Function f_printscreen()
Dim ll_color As Long
Dim lw_window As Form

Set lw_window = Screen.ActiveForm
ll_color = lw_window.Detail.BackColor
lw_window.FormHeader.BackColor = 16777215
lw_window.FormFooter.BackColor = 16777215
lw_window.Detail.BackColor = 16777215
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.PrintOut acSelection
lw_window.FormHeader.BackColor = ll_color
lw_window.FormFooter.BackColor = ll_color
lw_window.Detail.BackColor = ll_color

End Function

My problem is that because the font color is so light on the form, the field labels never show up. Does anyone know what I can add to this code so that I can change the forecolor of the labels to black or something?

 

[trucktime]

Color

Try this:

lw_window.Detail.ForeColor = 0

 

[rjasong23]

Still not working

Thanks for the reply, but I got the message, "Object doesn't support this property or method."

Also, I now have the problem that my screen color is permanently changed after I print. Any suggestions on turning it back the way it was?