Moises.....

Here is a old memo print routine that I used to use. I've not checked it out in VFP so there are no guarentees! It worked fine in Fox 2.0.

You may need to make adjustments as needed but it should serve to get you going.


*
*
*
***********************************proc mem_prt
*procedure to print memo fields
* x = new set memo width
* Y = name of memo field
* z = P = to printer or S = to screen
*
procedure mem_prt
parameters x,y,z
old_wide = set("memowidth")
set memowidth to 50
ml = memlines(&y)
for mx = 1 to ml
if z = 'P'
if prow() > 56
eject
@prow()+1,1 say ' '
endif
@prow()+1,1 say mline(&y,mx)
else
if row() > 15
wait 'Press Spacebar to Continue' window
clea
endif
@row()+1,1 say mline(&y,mx)
endif
endfor
set memowidth to (old_wide)
return
*
*
*