delphi - 如何在Delphi中打印表格

Question

我想在delphi中打印表格，但不确定如何去做。我尝试摆弄“打印对话框”，但无法打印任何内容。

任何帮助表示赞赏。

Answer 1

您可以简单地调用Print的TForm方法。使用PrintScale属性可以额外控制打印的缩放比例。

打印对话框TPrintDialog仅显示用于打印的标准系统对话框。这使用户可以选择打印机，更改其属性，选择打印范围，份数，是否要分页等等。对话框返回时，您可以阅读该信息并采取相应措施。换句话说，TPrintDialog允许您从用户那里检索一些选择，但不执行任何打印。您仍然必须执行实际的打印，才能进行这些选择。

因此，您的代码可能如下所示：

if PrintDialog.Execute then
begin
  // account for any user choices, reading from PrintDialog properties
  PrintScale := ...;
  for i := 1 to PrintDialog.Copies do
    Print;
end;