Tracy,

Does MS KB #Q154170 relate?

good luck

>We have a FPD26 app that has been partially converted to VFP7. Some of the screens are still the original FPD26 screens being run as the .sprs. In the original app (FPD26) we allowed the users to change the foxpro screens colors. This has never been a problem til now. Since some of the screens are still dos screens, when the user changes the screen colors, the printing no longer works. Sometimes it prints out as solid black boxes and sometimes it prints out as the actual screen color (if using a color printer) like GB+/R for instance will printout as GB+/R on a color printer. However, only the screen attributes have been changed, so why does the printer font change? Please see my code below to duplicate this problem. I can duplicate it over and over but cannot figure a way of resolving it. It is different depending on the printer of course but some of our users have Okidata Microline 320s and some have HP4000, and some have Lexmarks, etc.
>
>TIA!!!!!!!!!!!
>TRACY
>
>
>

>*SETCOLOR.PRG
>
>set COLOR OF SCHEME 1 to W+/G, W+/BG, GR+/B, GR+/B, R+/B, W+/GR, GR+/RB, N+/N, GR+/B, R+/B
>set COLOR OF SCHEME 2 to W+/n, W+/BG, GR+/B, GR+/B, R+/B, W+/GR, GR+/RB, N+/N, GR+/B, R+/B
>set COLOR OF SCHEME 3 to W+/B, W+/BG, GR+/B, GR+/B, R+/B, W+/GR, GR+/RB, N+/N, GR+/B, R+/B
>
>* DO SETSCHEME
>
>DO setscreen1
>? "THESE ARE THE NEW COLORS"
>*Test printing
>set PRINTER TO NAME GETPRINTER()
>set DEVICE TO printer
>@1,10 SAY "TEST 1"
>@5,10 say "This is the first line of text"
>@8,10 say "This is the 2nd line of text"
>set PRINTER to
>set DEVICE TO screen
>
>WAIT WINDOW "Press anykey for test 2"
>*Test with set printer font
>DO setscreen2
>set DEVICE TO printer
>SET PRINTER FONT 'TIMES NEW ROMAN',10
>@1,10 SAY "TEST 2"
>@5,10 say "This is the first line of text"
>@8,10 say "This is the 2nd line of text"
>set PRINTER to
>set DEVICE TO screen
>
>RETURN
>
>****************************************************************
>PROCEDURE setscreen1
>#IF 'VISUAL' $ UPPER(VERSION())
>		
>	sRGB = RGBSCHEME(1,1)
>	sRGB = STRTRAN(sRGB, 'RGB(', '')
>	sRGB = STRTRAN(sRGB, ')', '')
>		
>	nRed = VAL(SUBSTR(sRGB, 1, AT(',', sRGB, 1)-1))
>	nGreen = VAL(SUBSTR(sRGB, AT(',', sRGB, 1)+1, AT(',', sRGB, 2)-1))
>	nBlue = VAL(SUBSTR(sRGB, AT(',', sRGB, 2)+1, AT(',', sRGB, 3)-1))
>		
>	_SCREEN.ForeColor = RGB(nRed, nGreen, nBlue)
>
>	nRed = VAL(SUBSTR(sRGB, AT(',', sRGB, 3)+1, AT(',', sRGB, 4)-1))
>	nGreen = VAL(SUBSTR(sRGB, AT(',', sRGB, 4)+1, AT(',', sRGB, 5)-1))
>	nBlue = VAL(SUBSTR(sRGB, AT(',', sRGB, 5)+1))
>
>	_SCREEN.BackColor = RGB(nRed, nGreen, nBlue)
>	_SCREEN.FillColor = RGB(nRed, nGreen, nBlue)
>	
>#ENDIF
>CLEAR
>RETURN
>
>****************************************************************
>PROCEDURE setschem
>PRIVATE dbfarea,crntreso,newscheme
>
>dbfarea = ALIAS()
>crntreso = SYS(2005)
>
>SELECT 0
>USE (crntreso) ALIAS "TEMPRESO"
>
>LOCATE FOR id = "SCRN_BORDER"
>IF FOUND()
>	m.borderfill = DATA
>ENDIF
>
>USE IN TEMPRESO
>IF !EMPTY(dbfarea)
>	SELECT (dbfarea)
>ENDIF
>
>*---Define Color Atributes for Policy Profiler.
>screenatr = SCHEME(1,1)
>inputsatr = SCHEME(1,2)
>statusatr = SCHEME(1,4)
>revcolor  = rev_vid(inputsatr)
>
>?"SCREEN ATTRIBUTES:"
>?screenatr
>?inputsatr
>?statusatr
>?revcolor
>
>RETURN
>
>****************************************************************
>FUNCTION rev_vid
>PARAMETER TEXT
>RETURN SUBSTR(TEXT,AT(",",TEXT)+1)
>RETURN
>
>****************************************************************
>PROCEDURE setscreen2
>#IF 'VISUAL' $ UPPER(VERSION())
>		
>	sRGB = RGBSCHEME(2,1)
>	sRGB = STRTRAN(sRGB, 'RGB(', '')
>	sRGB = STRTRAN(sRGB, ')', '')
>		
>	nRed = VAL(SUBSTR(sRGB, 1, AT(',', sRGB, 1)-1))
>	nGreen = VAL(SUBSTR(sRGB, AT(',', sRGB, 1)+1, AT(',', sRGB, 2)-1))
>	nBlue = VAL(SUBSTR(sRGB, AT(',', sRGB, 2)+1, AT(',', sRGB, 3)-1))
>		
>	_SCREEN.ForeColor = RGB(nRed, nGreen, nBlue)
>
>	nRed = VAL(SUBSTR(sRGB, AT(',', sRGB, 3)+1, AT(',', sRGB, 4)-1))
>	nGreen = VAL(SUBSTR(sRGB, AT(',', sRGB, 4)+1, AT(',', sRGB, 5)-1))
>	nBlue = VAL(SUBSTR(sRGB, AT(',', sRGB, 5)+1))
>
>	_SCREEN.BackColor = RGB(nRed, nGreen, nBlue)
>	_SCREEN.FillColor = RGB(nRed, nGreen, nBlue)
>	
>#ENDIF
>CLEAR
>RETURN
>