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;