I'm using Foxpro 2.5b for Win and meet a "big" problem. I need to print some sheets separately, each sheet is to be produced by using several "@..say" commands followed with a "set print to" command. After several sheets are printed, error message "Resource Manager Internal Consistency Error" will occur and then foxpro will shutdown. How to solve this problem? the demo code is as followed, continue to run it in foxpro, ther error will occur.

Do me a favor. I'm looking forward to anyone's reply.

Thank's very much!

Wanqian Deng


demo.prg:

PRIVATE str,fontx, pos
SET DEVI TO printer
m.pos=0
str="sample string"
=afont(fontarray)
FOR i=10 TO 18 && ALEN(fontarray)
fontx=fontarray(i)
FOR j=10 TO 20
@m.pos/11,10 SAY str FONT (fontx), j
m.pos=pos+FONTMETRIC(1,(fontx),j)
ENDFOR
ENDFOR
set printer to
RETURN