windy8848 发表于 2010-11-8 16:53:39

万能打印自动添加空白行脚本公式

本帖最后由 windy8848 于 2010-11-8 17:08 编辑

在万能打印设计时，我们原来执行如下打印前执行脚本：       while freespace>75 do       begin         ShowBand(aa);       end;         但是在使用的时候，比如客户想把页头调大点，则打印可能就出现了死循环，这个时候我们可能又需要重新计算freespace的值，为避免以上情况，查询相关资料后，试推算出以下脚本公式:   if then   begin       num := int((FreeSpace [-其他项Band.Height,[-其他项Ban.Height..]..] )/子项Band.Height);       for i := 1 to num do       begin         ShowBand(子项Band);       end;   end;备注：此脚本在使用的时候需要注意公式： FreeSpace [-其他项Band.Height,[-其他项Ban.Height..]..])         其中 [其他项Band] 为 打印子项后的需要打印的不包括页脚的所有BAND。         例如：打印项目            页头：ph            主项数据 : band1            子：aa   栏目脚 : bb            页脚：cc         则栏目脚 打印前执行 脚本为： if then      begin      num := int((FreeSpace -bb.Height)/aa.Height);      for i := 1 to num do      begin          ShowBand(aa);      end;      end;          ×其中aa 为子项 ， bb 为栏目脚 转自：http://bbs.soft-sk.com/forums/selAllGoodTopic/1.page

greatwall 发表于 2011-5-4 23:00:37

万能打印自动添加空白行脚本公式

no66781 发表于 2011-10-27 10:45:27

谢谢，楼主，这个很好用，

no66781 发表于 2011-10-27 10:46:39

请问楼主“您，查询相关资料”有那些呢？能否分享一下呢。
页: [1]
查看完整版本: 万能打印自动添加空白行脚本公式