Delphi 7 中使用RAVE报表（四）[6]

        tabshade := 15;

      end; { else }

      str(i1 * 1.23:2:2,s1);

      str(i1 * 98.76:2:2,s2);

      print(#9'lastname' + inttostr(i1) + ', ');

      setfont('times new roman',8);

      print('firstname m.');

      setfont('times new roman',12);

      println(#9 + inttostr(i1) + #9'$' + s1 + #9'$' + s2);

    end; { for }

    cleartabs;

  { 分栏报表 }

    cleartabs;

    settopofpage;

    sectionbottom := 8.0;

    home;

    setfont('宋体',12);

    bold := true;

    underline := true;

    print(' 分栏报表 （linesleft/columnlinesleft/linenum/columnnum）');

    settopofpage; { set top of page to current ypos }

    bold := false;

    underline := false;

    italic := false;

    home; { goto home position }

    setcolumns(4,0.5); { create 4 columns with 0.5" between each }