自定义报表的打印程序_第1页
自定义报表的打印程序_第2页
自定义报表的打印程序_第3页
全文预览已结束

下载本文档

版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领

文档简介

1、自定义报表的打印程序 （定制表头、分页打印）* 编号： A0010* 功能：自定义报表的打印程序 ( 定制表头、分页打印)SET PRINT ONCHR(27)+"IB" && 设置打印报表标题的字型 SET PRINT OFFSET DEVICE TO PRINTPROW(),10 SAY "XX 厂人事信息登记表 " && 打印标题SET PRINT ONCHR(27)+"IA" && 设置打印报表的正文字型SET PRINT OFFS

2、ET DEVICE TO PRINT PROW()+2,30 SAY " 制表日 期 :"+STR(YEAR(DATE(),4)+" 年 "+STR(MONTH(DATE(),2);+"月 "+STR(DAY(DATE(),2)+" 日 " 页数 =1 && 页计数器置初值 行数 =0 && 行计数器置初值USE RS INDEX RSGHDO WHILE .NOT. EOF()* 控制打印页号及换页IF 行数 >=58PROW()+1,

3、0 SAY"11111格底线PROW()+4,20 SAY " 第"+STR(页数,3)+"页"&& 打印页码页数 =页数 +1 && 页计数器计数行数 =0&& 行计数器置初值PROW()+11,0 SAY ""EJECT&& 控制打印机换页ENDIF* 每页打印报表栏目名称PROW()+1,0 SAY " |1111PROW()+1,0 SAY " |工 号|姓名|性 别|年

4、 龄丨职 称丨工资丨"行数=行数+2* 打印职工人事内容DO WHILE 行数 <58 .AND. .NOT. EOF()PROW()+1,0 SAYIIPROW()+1,0 SAY"+""+GH+""+XM+""+XB+""+STR(NL,3)+""+ZHC+"STR(GZ,6,2)+""SKIP 1行数=行数 +2ENDDOIF 行数 <>58PROW()+1,0 SAY"11111 格底线PROW()+4,20 SAY " 第"+STR(页数,3)+"页&qu

人人文库> 全部分类> 教育资料 > 课件下载

温馨提示

  • 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

最新文档

评论

0/150

提交评论