소스 검색

因SmartCost修改DirectPrintUnit单元,编译不通过,不在使用该单元

MaiXinRong 8 년 전
부모
커밋
f7521a1814
1개의 변경된 파일2개의 추가작업 그리고 3개의 파일을 삭제
  1. 2 3
      Forms/ReportsFrm.pas

+ 2 - 3
Forms/ReportsFrm.pas

@@ -175,7 +175,7 @@ type
 implementation
 
 uses
-  UtilMethods, Math, DirectPrintUnit, Globals, ZhAPI, ReportAdjustFrm,
+  UtilMethods, Math, Globals, ZhAPI, ReportAdjustFrm,
   Contnrs, mEncryptUnit, Printers, WinSpool, MainFrm, ConstUnit,
   GclBillsGatherModel;
 
@@ -508,8 +508,7 @@ begin
     if Node.HasChildren or (Node.Checked <> csChecked) or (Node.Data = nil) then Continue;
     vTemplateNode := TTemplateNode(Node.Data);
     if FileExists(vTemplateNode.FileName) then
-      directPrintReport(PreviewBox.Canvas, vTemplateNode.FileName,
-          PreviewComXML, False, False, oemNormal,'','', IsExcel2010);
+      PrintReport(vTemplateNode, False, False, '', '');
   end;
   extvReport.ClearChecked;
 end;