PrintCom code revamp 06

Forms/ReportsFrm.dfm

@@ -216,7 +216,7 @@ object ReportsForm: TReportsForm
     Font.Charset = DEFAULT_CHARSET
     Font.Color = clWindowText
     Font.Height = -12
-    Font.Name = 'Microsoft YaHei UI'
+    Font.Name = #24494#36719#38597#40657
     Font.Style = []
     Bars = <
       item

Forms/ReportsFrm.pas

@@ -1447,7 +1447,7 @@ begin
     APrintCom.FillZero := chkFillZero.Checked;
     InitPageSettings(APrintCom);
     APrintCom.ReadDBData;
-    APrintCom.AnalyseData;
+    APrintCom.AnalyseData(PreviewBox.Canvas);
   finally
     if Mem <> nil then
       Mem.Free;