【结】分组打印的合计问题(急)**

ht88th

我们启用下面自定义字段分组打印后，打印后出现每页中的个别栏目合计值不准确,而在打印预览中是没有问题的.

TDataSheetArea(ASheet.Areas[0]).MinPageRepeatCount := SysUtils.StrToInt(FPageLines.Text);//FPrintGy;
TDataSheetArea(ASheet.Areas[0]).GroupDefs.Add;
TDataSheetArea(ASheet.Areas[0]).GroupDefs[0].GroupFieldName := 'PAGENO';
TDataSheetArea(ASheet.Areas[0]).GroupDefs[0].Formfeed := True;

ht88th

自己顶一下

atiger

首先，请楼主反馈一下原先提交的帖子，例如 http://bbs.justep.com/forum.php?mod=viewthread&tid=26104

另外，此楼说的，好像不是所有的都这样，可能跟啥设置有关，能否把资源或者做个简单的例子传上来，我们恢复环境跟踪一下。
并告知你的版本号是多少

ht88th

对于http://bbs.justep.com/forum.php?mod=viewthread&tid=26104
.
这个问题，是另外一个部门提的，我会提醒他们及时反馈

经过昨天一天的测试，用了以下代码进行打印后，已没有问题。
if TDataGridExporter(lDataGrid.Exporter).OnSheetCreated = nil then
          TDataGridExporter(lDataGrid.Exporter).OnSheetCreated := OnSheetCreated;
  lDataGrid.Exporter.Print;

原先是代码是这样的
        for li := SysUtils.StrToInt(FPageStart) to SysUtils.StrToInt(FPageCount) do
        begin
          FPageNum := SysUtils.IntToStr(li);
          FDetailDs.Filtered := False;
          FDetailDs.Filter := 'PAGENO='''+SysUtils.IntToStr(li)+'''';
          FDetailDs.Filtered := True;
          if TDataGridExporter(lDataGrid.Exporter).OnSheetCreated = nil then
            TDataGridExporter(lDataGrid.Exporter).OnSheetCreated := OnSheetCreated;
          if li = SysUtils.StrToInt(FPageStart) then
             FSourceGrid.Exporter.Print
          else
             FSourceGrid.Exporter.PrintEx(False,True);
        end;

ht88th

可能在多次循环请求打印就有问题。

ht88th

目前我们使用的还是老版本2144。
先结贴吧，如果再有问题在反馈吧。