Tchart打印预览

uses

  TeePrevi;

   

procedure TFMainChart.AtnPrintExecute(Sender: TObject);

begin

  myChart.PrintOrientation(poLandscape);//poPortrait

end;

   

procedure TFMainChart.AtnPreviewExecute(Sender: TObject);

begin

TeePreview(self,myChart);

  //ChartPreview(self,myChart);

end;

设置打印预览窗口为中文

//dpr中添加
uses TeeChineseSimp 


  TeeSetChineseSimp;