Delphi 7: Как распечатать TChart?

Question

Как мне распечатать TChart?

Я отобразил TChart, и на экране есть кнопка TB.

Когда нажата кнопка 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;