Преглед на файлове

因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;