set COLOR TO r+/n, gr+/g loVFP = CREATEOBJECT("VisualFoxpro.Application") lovfp.docmd("_screen.fontname='Arial'") lovfp.docmd("_screen.fontsize=6") lovfp.docmd("coldbackcolor=_screen.backcolor") lovfp.docmd("coldforecolor=_screen.forecolor") lovfp.docmd("glfontname=_screen.fontname") lovfp.docmd("glfontsize=_screen.fontsize") CLEAR @10,10 say "this is a test" @11,10 say "this is line 2" @12,10 say "this is line 3" loVfp.DoCmd("_Screen.lockscreen=.T.") loVFP.DoCmd("_SCREEN.BackColor = RGB(255,255,255)") loVFP.DoCmd("_SCREEN.ForeColor = RGB(0,0,0)") set DEVICE TO printer ??? "(s10H " @10,10 say "test this should be black on white with no shading" eject set console on set DEVICE TO screen set PRINTER to loVFP.DoCmd("_SCREEN.BackColor = coldbackcolor") loVFP.DoCmd("_SCREEN.ForeColor = coldforecolor") loVFP.DoCmd("_SCREEN.fontname = glfontname") loVFP.DoCmd("_SCREEN.fontsize = glfontsize") loVfp.DoCmd("_Screen.lockscreen=.F.")