Delphi 7 中使用RAVE报表(四)[4]

[入库:2005年8月18日] [更新:2007年3月24日]

本文简介:选择自 highway_programmer 的 blog

    home;

    ypos := 1.0;

    fontrotation :=20;//旋转角度

    printcenter('我的报表',pagewidth / 2);

    setfont('宋体',10);

    sectionbottom := 10.75;

    printfooter('第' + inttostr(currentpage) + '页',pjleft); //页码

    printfooter('日期: '+datetostr(date)+' ',pjright); //日期

    sectionbottom := 10.5;

    ypos := 1.5;

    setfont('宋体',12);

    settopofpage;

    home;

  { 打印列标题 }

    cleartabs;

    setpen(clblack,pssolid,1,pmcopy); { 设置画笔为一个点宽 }

    settab(0.5,pjcenter,3.5,0,boxlineall,0);

    settab(na,pjcenter,1.0,0,boxlineall,0);

    settab(na,pjcenter,1.5,0,boxlineall,0);

    settab(na,pjcenter,1.5,0,boxlineall,0);

    bold := true;

    tab(-2,na,-2,-2,na); { 画出具有粗边框的表格 }

    print('name');

    tab(na,na,-2,-2,na);

    print('number');

    tab(na,na,-2,-2,na);

    print('amount 1');

    tab(na,-2,-2,-2,na);

本文关键:Delphi 7 中使用RAVE报表(四)
  相关方案
Google
 

本站最佳浏览方式为 分辨率 1024x768 IE 6.0(或更高版本的 IE浏览器)

go top