我用D6+fastreport做报表,想实现以下功能:
客户用套打,其中有一列要打印两个字段,分别是品名和规格。客户为了节省纸张,当品名+字段的长度不足或刚好为一行时就当作一行打印,否则当作两行。我数了一下,偶一行最多能容纳24个字符。

解决方案 »

  1.   

    safa
    顺便说一下,我在fr的memo的脚本中想写一些代码,但是又不许我声明变量,不知如何是好!拜托各位大侠一定要帮帮忙,顺便给出源码,小弟万分感谢!!(分不够,偶再开贴送)
      

  2.   

    1、主项数据的Stretch:=True;这样可以分行打印。
    2、不知道你要写代码实现什么功能?
      

  3.   

    To victor_yang(victoryang) 
    我知道那个可以分页
    但那个东西分页不会自动切断,也就是说当品名长度<24而品名+规格>24时,规格就会断开,不好判断!
      

  4.   

    例如会出现以下情况:
    1.5M新豪华无裙浴缸CP
    -1550我想实现的是这种情况:
    1.5M新豪华无裙浴缸
    CP-1550
      

  5.   

    多谢  victor_yang;
    敬候佳音
      

  6.   

    方法如下:
    1、品名+空格+规格
    2、规格里不要有空格  (重点!)
    3、Stretch:=True;
    4、WordWrap:=True;    (默认就是True)
      

  7.   

    yourquery.first;
    for i:=0 to yourquery.recordcount do begin
        j:=length(yourquery.fieldbyname('name').asstring)+length(yourquery.fieldbyname('item').asstring);
        if j>24 then begin
            for k:=0 to (24-length(yourquery.fieldbyname('name').asstring)) do begin
                blanknum:=blanknum+' ';         //这个是空格
            end
            end
        else
            blanknum:='';
        yourquery.edit;
        yourquery.fieldbyname('pmgg').asstring:=yourquery.fieldbyname('name').asstring+blanknum+yourquery.fieldbyname('item').asstring;  //这个是计算字段
        yourquery.next;
    end;
      

  8.   

    不知这样能不能帮到楼主,yang兄或许另有高招