uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ComCtrls, ExtCtrls, TeeProcs, TeEngine, Chart,
Series, TeeTools,TeeEdiGene, TeCanvas, TeeEdit, Grids, TeeChartGrid,DB,
Menus, Registry;
以上USES的单元 好象不USES其中的一些单元就不能打印,下面是代码包括 打印预览和打印
procedure TFrmChart.BitBtnPrintViewClick(Sender: TObject);
begin
Chart1.PrintProportional := False; // disable automatic margins
Chart1.PrintMargins := Rect(5,5,5,5); // percentage
ChartPreview( Self, Chart1 );
end;
//------------------------------------------------------------------------------
procedure TFrmChart.BitBtnPrintClick(Sender: TObject);
begin
Chart1.Print ;
end;