I tried your code and it's working on my computer and with other dbf. It's a long time since I wrote the last time a report "by hand", but:
1. Put a SET PRINTER ON after SET PRINTER TO...
2. Put a SET PRINTER OFF before SET DEVICE TO SCREEN
3. You have ")" with no corresponding "(" in:
do while line_no<=2*max_line_num+5). FoxPro doesn't see these errors all the time, but it acts weird when you have something like that.

4. Why don't you use the Report Designer?

Vlad

>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.