【结贴】如何控制多文档的打印与文档翻页打印控制**

bsit

问题1:功能上有1个PageControl1,包含了5个TabSheet,每个TabSheet装载的文档对应的是DocView_A1......DocView_A5,这5个文档是界面上看见的
还有5个文档是DocView_B1......DocView_B5,依次对应的是DocView_A1......A5
A1......A5是界面上看到的文档,而B1......B5是打印的文档
在功能上设置了DocViewBar控件的AutoDetect为False,同时设置了DocView的属性为A1
现在在DocViewBar控件的BeforeAction事件里面写了如下代码
var
  intActiveIndex : Integer;
begin
  intActiveIndex := PageControl1.ActivePageIndex;
  if (intActiveIndex = 0) then
  begin
    DocViewBar.DocView := DocView_A1
  end
  else if (intActiveIndex = 1) then
  begin
    DocViewBar.DocView := DocView_A2
  end
  else if (intActiveIndex = 2) then
  begin
    DocViewBar.DocView := DocView_A3
  end
  else if (intActiveIndex = 3) then
  begin
    DocViewBar.DocView := DocView_A4
  end
  else if (intActiveIndex = 4) then
  begin
    DocViewBar.DocView := DocView_A4
  end

但是我在系统里面点DocViewBar这个控件,打印界面出来的不是的A1......A5这几个文档中的一个
还是显示的功能界面上的那几个文档
请问要怎么设置才能到达我要的这种效果

问题2:一个打印界面,是主从关系的数据,每页只显示10条明细数据,我现在有15条数据,需要打印成2页,有个要求,在第一页上需要显示主表上的字段A,而在第二页上不需要显示这个字段A,我在主数据集的区域里面插入了个表达式字段A,表达式为:IIf(PageNumber()=1,主数据集.金额合计,'')
但是这样设置了还是不行,在第二页上也会把这个值显示出来


注:版本2640,请尽快指导解决,急~~~~~~~~~~~~~~

lixy

问题1：
http://bbs.justep.com/forum.php?mod=viewthread&tid=21368
11楼。

atiger

楼主，如果不执行 DocViewBar控件的BeforeAction事件，点击打印预览显示的是A1吗？如果是当前焦点的文档，那么应该是 DocViewBar控件的AutoDetect 这个属性没有取消掉，你再检查一下。

因为手上没有2640版本，在3068上，如果取消DocViewBar控件的AutoDetect ，这个属性，在 DocViewBar控件的BeforeAction事件切换文档是可以的

lixy

我测试了2640的，有2楼的缺陷，也就是打印目标是表单文档会有问题，表格文档没有。
http://bbs.justep.com/forum.php?mod=viewthread&tid=20785
问题2，我测试的一切正常（没有主从关系）。

bsit

第1个问题我们已经处理了 谢谢

第2个问题，能不能把你测试的包发上来呢？谢谢

bsit

关于第2个问题
我们重新调整表格上的区域后，在表格文档上面直接预览，正常
但是从客户端进入功能后，在第2页上仍然会出来

lixy

好的，等等。老在切换版本，很费时间。

lixy

晕，好像是缺陷。楼主可以把页码也显示出来，就明白了，页码算错了。
楼主用别的字段做判断，绕开他吧。

bsit

就是把页码显示出来才发现问题的。想不出其他办法了啊。这个是客户要求的，打印出来的第2页上面不能显示那个字段的值。你有没有好办法啊？

lixy

每页行数是定值，可以用这个做文章。