猪八戒威客

本人自己写的一个FOX小程序是用来收房租的（水平有限请别见笑），打印机是LQ1600，打印纸是9.5吋X11吋（比A4纸略短）带孔撕边连续打印那种，而一页中又分开3小页，（每一小页是9.3cmX24.2cm),打印机设置打印纸为A4纸（LQ1600好象不能自定义打印纸尺寸），每次我打印输出总会有些是打在两小页之间交接的位置上。请高手帮忙解决这个打印问题（不论是修改程序还是改变打印设置，只要能连续地每页都能正位打印就可以）。

我的FOX程序如下：

SET TALK OFF

NUMBER2=0 &&录入菜单
NUMBER1=0 &&修改菜单
NUMBER=0 &&主菜单
DO WHILE .T.
CLEA
@ 1,20 SAY "请选择:1--修改2--录入  " GET NUMBER
READ
  IF NUMBER=1
       
        @ 1,20 SAY "请选择:1--修改旧屋数据   2--修改新屋数据" GET NUMBER1
        READ
         DO CASE &&二级CASE1
           CASE NUMBER1=1
           USE  F:\旧文件\vbfox3.0\租户
           EDIT
           CASE NUMBER1=2
           USE   F:\旧文件\vbfox3.0\租户2
           EDIT
           WAIT "是否继续(Y/N):" TO YN1
             IF UPPER(YN1)="N"
                EXIT
             ENDIF
   
         ENDCASE 
          
     
                   
      
  ELSE
        @ 1,20 SAY "请选择:1--录入旧屋数据   2--录入新屋数据" GET NUMBER2
        READ
        DO CASE &&二级CASE2
           CASE NUMBER2=1
           USE    F:\旧文件\vbfox3.0\租户
           CASE NUMBER2=2
           USE    F:\旧文件\vbfox3.0\租户2                     
        ENDCASE  &&二级CASE2
    
        AN1=.N.
        @2,20 SAY "需要输入本月水表及电表读数吗(Y/N)?" GET AN1
        READ
       IF AN1=.T.
        @ 3,20 SAY  "请输入本月水表及电表读数!"
        WAIT  TIMEOUT 1
       
        EDIT ALL FIEL 房号:R,S,D
        AN2=.N.
        @ 4,20 SAY "需要置换数据吗(Y/N)?" GET AN2
        READ
        IF AN2=.Y.        
         GO TOP
         REPL ALL 上月水表数 WITH 本月水表数
         REPL ALL 上月电表数 WITH 本月电表数
         REPL ALL 本月水表数 WITH S
         REPL ALL 本月电表数 WITH D       
         REPL ALL 合计 WITH  本月水表数*3 -上月水表数*3+本月电表数*1.1-上月电表数*1.1+房租+清洁费+楼梯灯费+网费
        ENDIF 
       ENDIF
       GO TOP
   AN3=.N.
   @ 5,20 SAY "需要打印吗(Y/N)?" GET AN3
   READ
   IF AN3=.Y.
      SET PRINTER ON
   ENDIF   
   DO WHILE EOF()=.F.
   ?
   ?"        #"
   ?
 
   ? space(30)+ "收费日期：",YEAR(DATE()),"年"
   ?? MONTH(DATE()),"月"
   ??space(42)+ "房  号:",房号
   ?
   IF NUMBER2=1
      ? space(30)+  "北便大街2巷1号租户租金明细表"
      ?
   endif  
   IF NUMBER2=2
      ? space(30)+  "西便大街37号住户租金明细表"
      ?
   ENDIF    
  
   ?
   ? space(30)+ "房  租:",房租
   if  网费<>0  
   ?? space(21)+ "网  费：",网费
     if  清洁费<>0  
   ?? space(5)+ "清洁费：",清洁费
   ?? space(3)+ "楼梯灯费：",楼梯灯费
     endif
   endif 
   ?
   ? space(30)+ "本月水表数:", 本月水表数
   ?? space(14)+"  上月水表数:",上月水表数
  
   ? space(30)+ "应交水费 :",本月水表数*3-上月水表数*3
   ?
   ? space(30)+ "本月电表数:",本月电表数
   ??space(14)+ "  上月电表数:",上月电表数  
   ? space(30)+ "应交电费:           "
   ?? 本月电表数*1.1-上月电表数*1.1
   ?
   ? space(30)+"合      计:",合计
   ?? space(15)+"( 注：元位以下四舍五入 )"
   ?  
   ?
   ?
   ?
   ?
   ?
   ?
   ?"         注 "
   SKIP
   ENDDO  &&DO WHILE EOF()=.F.
   WAIT "是否继续(Y/N):" TO YN
    IF UPPER(YN)="N"
          EXIT
    ENDIF
   
 
 ENDIF
ENDDO
 
      
set print off
SET TALK ON