【搞定】动态打印浏览表单**

ccseasy

要求：窗体显示时是LWDJ_BG表单，打印浏览时要打印LWDJDYLLY表单。

写在打印浏览按钮下的代码，如下：
//BeforeAction
procedure TBGSDJCX_CK.DocViewBarBeforeAction(Sender: TObject; var Accept: Boolean);
begin
  if TBizDocAction(Sender).ID =BizActnConsts.ActionPrintPreview then
   begin     
       DocView4.DocClassID := 'LWDJDYLLY';//打印浏览的表单
   end;
end;

//AfterAction
procedure TBGSDJCX_CK.DocViewBarAfterAction(Sender: TObject);
begin
if TBizDocAction(Sender).ID =BizActnConsts.ActionPrintPreview then
   begin
   DocView4.DocClassID:='LWDJ_BG';//现界面显示的表单
   end;
end;

问题是在初始化运行时没有问题，但是签入后在ie浏览时就报这个错误，如图：

jiahaiminghr

错误停在哪句代码上？

atiger

不要这样做，
1、直接取消DocViewbar 的AutoDetect 属性
2、设置DocViewBar的DocView连接到要打印的文档上
这样就可以了

ccseasy

没人回？

atiger

3楼，没有看到？|

ccseasy

好，我试试，谢谢

ccseasy

这个论坛只有发一个帖后才能看到

shangxy

可以没事的时候多刷新一下

ccseasy

最初由 atiger 发布
[B]不要这样做，
1、直接取消DocViewbar 的AutoDetect 属性
2、设置DocViewBar的DocView连接到要打印的文档上
这样就可以了 [/B]

我用的是一个tab页，如果激活了另一个tab页怎么办？
这样的话，只能打印一个表单了。

jiahaiminghr

可以在tab切换时，代码修改文档打印工具栏与docview的绑定关系