Delphi 7:如何打印TChart

Question

如何打印TChart?

我显示了一个TChart，屏幕上有一个TButton。

当点击TButton时，将显示Windows打印机对话框，并将TChart打印到所选打印机。

我如何使用Delphi 7做到这一点?

谢谢。

Answer 1

这很简单:

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TPrintDialog.Create(nil) do
    try
      if Execute then
        Chart1.Print;
    finally
      Free;
    end;
end;