[结帖]关于打印问题。

jiahaiminghr

设置断点跟踪一下，看docview1.doc是不是空对象，没有赋值啊

sun4559

docview1.doc 不是空对象

sun4559

整个代码如下：

procedure TSHSPCX.Button3Click(Sender: TObject);
var f:TXMBJXXFORM;
begin
   if dsbSHSPCXProc.DataSet.isempty then
       exit;

   try
      f:=TXMBJXXFORM.create(context);
  
      TSheetDoc(f.docview1.doc).Exporter.Printex(false, false);
      dsbSHSPCXProc.dataset.DisableControls ;
      dsbSHSPCXProc.dataset.first;
      while not  dsbSHSPCXProc.DataSet.eof do
      begin
         if dsbSHSPCXProc.dataset.fieldbyname('流程名称').asstring='报价申请' then   
         begin
            dsbMaster.dataset.close;
            TSqlDataSet(dsbMaster.DataSet).sql.Text :='select * from tdxmxx where xmid in (select xmid from tdxmcp where id='+#39+dsbSHSPCXProc.dataset.fieldbyname('ywlc_mc2').asstring +#39+')';
            dsbMaster.dataset.open;   

            f.docview1.Print;
           jsdialogs.ShowMsg(dsbSHSPCXProc.dataset.fieldbyname('ywlc_mc2').asstring,'提示信息')
         end;

        dsbSHSPCXProc.DataSet.next;
      end;
      dsbSHSPCXProc.dataset.first;
      dsbSHSPCXProc.dataset.enableControls;
   finally
      f.free;
   end;

end;

jiahaiminghr

贴个错误图片看看。

sun4559

见8楼

sun4559

错误定位：

yancm

改成PrintEx(false,true);试一下

jiahaiminghr

写错地方了。
TSheetDoc(f.docview1.doc).Exporter.Printex(false, false);
是用来替代f.docview1.Print;的

sun4559

还是不行，错误依旧

sun4559

我做了个简单的出错例子，传上来你们看一下。(急！请尽快解决)