使用纸张规格381*279mm
有没有命令可以设置页边距 使一页打印两个单位
大概有10个单位吧 打印5页
不考虑用报表
谢谢
CLOSE DATA
CLEAR
SET TALK OFF
SET SAFE OFF
SET CONS OFF
SET DEVICE TO PRINT
SET PRINT ON
SET PRINTER FONT '宋体', 15  &&字符集可用AFONT() 显示
sele 1
USE HJ
sele 2
use xtzk
locate for xz='2'
*locate for bz=9
DO WHILE .not.eof()
  sele 2
  if bh<10
    I1=STR(bh,1)
  else
    i1=str(bh,2)
  endif
  sele 1
  LOCATE FOR BH=b->bh

  ?'                      '+LTRIM(TRIM(B->NAME))+'合计'

  ?' '
  ?'发   放   项  : '
  ?' '
  ?'生 活 费:'+str(SHF,10,2)+'    岗位工资:'+str(FDGZ,10,2)+'    年功工资:'+str(GLGZ,10,2)
  ?'福 利 费:'+str(FLF,10,2)+'    交通通讯:'+str(CB,10,2) + '    中 夜 餐:'+str(ZYC,10,2)
  ?'独 子 费:'+str(DZF,10,2)+'    书 报 费:'+str(SBF,10,2)+ '    加 班 费:'+str(JBF,10,2)
  ?'补    贴:'+STR(HD5,10,2)+'    保 健 费:'+STR(BJF,10,2)+ '    级别工资:'+str(JIBGZ,10,2)
  ?'年    补:'+STR(clgz,10,2)  
  SELE 3
  USE HD
  LOCATE FOR BH=B->BH
  IF .NOT. EOF()
    IF HD1<>0
      ?B->HD1+':'+STR(HD1,10,2)
    ENDIF
  ENDIF
  SELE 1
  ?' '
  ?'扣   款   项  :'
  ?' '
  ?'房租水电:'+str(FZSD,10,2)+'    病 事 假:'+str(BSJ,10,2)+'    新 工 险:'+STR(YYF,10,2)
  ?'失 业 金:'+STR(BXJ,10,2) +'    养老保险:'+STR(YLJ,10,2)+'    医    保:'+STR(HD3,10,2)
  ?'个    税:'+str(hd7,10,2) &&+' 暖 气 费:'+STR(HD4,10,2)
SELE 3
  IF HD2<>0
    ??'    '+B->HD2+':'+STR(HD2,10,2)
  ENDIF
  SELE 1
  ?' '
  ?'实  发  工  资:'+str(SFGZ,10,2)
  ? '      '
  SELE 2
  CONT
    SET CONS ON
    SET PRINT OFF
    WAIT '按任意键继续打印,退出按Ｑ键......' TO PD
    IF UPPER(PD)='Q'
     SET PRINT OFF
     SET CONS ON
     SET DEVICE TO SCREEN
     RETURN
    ENDIF
    SET CONS OFF
    SET PRINT ON
    CLEAR
ENDDO
?' '
set print off
SET DEVICE TO SCREEN
set cons on
eject
text &&

大体上你的版面布局是怎样的？用@...say语句打印好像你还不要制表符，应该可以实现你的要求的

谢谢回复  这是其中的一张

do while not eof()
  *打印第一个单位
  skip
  if not eof()
    *打印第二个单位
    eject
  endif
  eject
enddo

那第三个 第四个…… 第十个单位咋办
loca for xz='2'  决定是否打印该单位    一个单位就是一条记录  如果该单位的xz=2 那么就打印该单位
你说的 好像不行

do while not eof()
  *打印第一个单位
  skip
  if not eof()
    *打印第二个单位
  endif
  eject
enddo
做到了1页打2个单位，至于是10个单位还是100个单位，那是记录的问题。这个仅仅是你程序的核心部分的示意程序

噢 不好意思 可能是提问没有表达明白我的意思
如果按您的思路，应该可以达到要求，可是打印程序需要对每个单位进行设置打印程序
能不能做到 不对每个单位进行单独设置，而统一标记需要打印的单位进行打印，实现一页打印两个单位呢？
比如说  把需要打印的单位设置一个字段标记为2，把字段为2的单位汇总打印出来，且一页打印两个单位（用链式纸连续打印）