Delphi 7：如何打印 TChart？

【问题标题】：Delphi 7: How to print a TChart?Delphi 7：如何打印 TChart？
【发布时间】：2012-01-14 03:41:47
【问题描述】：

如何打印 TChart？

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

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

如何使用 Delphi 7 做到这一点？

谢谢。

【问题讨论】：

标签： delphi printing teechart

【解决方案1】：

这很容易：

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

【讨论】：

打印，但 TChart 图像在中间打印得很小。如何横向打印，填满纸张。
@ewlung：您可以自己调整打印设置。一些事情要尝试：（1）使用PrintPortrait而不是Print，（2）将PrintProportional设置为相反，（3）更改PrintMargins，（4）更改PrintRect，...跨度>
@ewlung 我也可能对teechart.net/support/viewtopic.php?t=5827上的“打印更好”文章感兴趣