Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Never print the last line!!!
Message
From
25/01/1997 05:17:06
Kevin Wang
Ministry of Water Resources
Beijing, China
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
User groups
Title:
Never print the last line!!!
Miscellaneous
Thread ID:
00018383
Message ID:
00018383
Views:
72
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.
Kevin Wang

Programmer&Analyst
Ministry of Water Resources
No.1,Baiguang Road
Beijing,China
Next
Reply
Map
View

Click here to load this message in the networking platform