Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Never print the last line!!!
Message
From
25/01/1997 08:00:31
F Joseph
Xinjiang Electric Power Company
Urumqi, China
 
 
To
25/01/1997 05:17:06
Kevin Wang
Ministry of Water Resources
Beijing, China
General information
Forum:
Visual FoxPro
Category:
User groups
Miscellaneous
Thread ID:
00018383
Message ID:
00018389
Views:
32
VFP 3.0 is OOP language,try report designer. I am a chinese programer too,glad to meet you. I have join in VFUG 3 monthes ago, please talk with english on this ,include your code, because chinese can't spot by english exploer. (your message will post to everybody on VFUG you know.) welcome connect me by my e-mail :net0040@public.wl.xj.cn we can converse with chinese. > > My eviroment is VFP3.0. I use an program file(.prg) to > finish my printing work. the whole file is here: > > ******* BEGIN ************* > SET COMPATIBLE OFF > SET DEVICE TO PRINTER > SET PRINTER TO LPT1 > ??? CHR(27)+CHR(48) > ??? CHR(27)+CHR(67)+CHR(68) > ??? chr(27)+chr(14) > > IF !USED(sq_bq) > USE sq_bq > ELSE > select sq_bq > ENDIF > > max_line_NUM=20 > page_no=1 > go top > do while .not.eof() > line_no=6 > @2,0 say " > ·ç ±© ³± ±í" > @4,0 say > "©°©¤©¤©¤©¤©Ð©¤©¤©¤©¤©Ð©¤©¤©¤©¤©Ð©¤©¤©¤©Ð©¤©¤©¤©Ð©¤©¤©¤©¤©¤©¤©Ð©¤©¤©¤©Ð©¤©¤© > ¤©Ð©¤©¤©¤©¤©Ð©¤©¤©¤©¤©´" > @5,0 say "©¦ Õ¾ ºÅ ©¦ Õ¾ Ãû ©¦ ºÓ Ãû ©¦ Ê¡ > ©¦µØ¡¢ÊЩ¦ ʱ ¼ä ©¦ ³±Î» ©¦ Æøѹ ©¦ÈÕ¾ù¸ß³±©¦ÈÕ¾ùµÍ³±©¦" > do while line_no<=2*max_line_num+5) > if eof() > @line_no,0 say > "©À©¤©¤©¤©¤©à©¤©¤©¤©¤©à©¤©¤©¤©¤©à©¤©¤©¤©à©¤©¤©¤©à©¤©¤©¤©¤©¤©¤©à©¤©¤©¤©à©¤©¤© > ¤©à©¤©¤©¤©¤©à©¤©¤©¤©¤©È" > @line_no+1,0 say "©¦ ©¦ ©¦ ©¦ ©¦ > ©¦ ©¦ ©¦ ©¦ ©¦ ©¦" > else > @line_no,0 say > "©À©¤©¤©¤©¤©à©¤©¤©¤©¤©à©¤©¤©¤©¤©à©¤©¤©¤©à©¤©¤©¤©à©¤©¤©¤©¤©¤©¤©à©¤©¤©¤©à©¤©¤© > ¤©à©¤©¤©¤©¤©à©¤©¤©¤©¤©È" > @line_no+1,0 say "©¦"+stcd+"©¦" +zm+ "©¦" +hl+ > "©¦"+sm+"©¦"+dd+"©¦" > +ymdhm+"©¦"+str(zt,6,3)+"©¦"+str(p,6)+"©¦"+str(dayhz,8,3)+"©¦"+str(daylz,8,3 > )+"©¦" > endif > line_no=line_no+2 > if .not.eof() > skip > endif > enddo > @line_no,0 say > "©¸©¤©¤©¤©¤©Ø©¤©¤©¤©¤©Ø©¤©¤©¤©¤©Ø©¤©¤©¤©Ø©¤©¤©¤©Ø©¤©¤©¤©¤©¤©¤©Ø©¤©¤©¤©Ø©¤©¤© > ¤©Ø©¤©¤©¤©¤©Ø©¤©¤©¤©¤©¼" > @line_no+1,60 say "µÚ"+str(page_no,2)+"Ò³" > page_no=page_no+1 > eject page > enddo > ??? CHR(27)+CHR(64) > SET DEVICE TO SCREEN > SET COMPATIBLE ON > CLEAR > RETURN > *************** THE END ******************** > > When I run the program, the printer begin to print the table,but it never > print the last line and the page number of the last page. So the report is > not entire! I don't know how to solve the problem. > wait your help. >
--------------------------------------------------------------------
Best regards,
f.joseph
xinjiang electric power company
Tele : 86-0991-2920415
E-Mail : net0040@public.wl.xj.cn
mail address: jian she lu st. 10
urumqi,xinjiang province,republic of china
zip: 830002
--------------------------------------------------------------------
Previous
Reply
Map
View

Click here to load this message in the networking platform