如何在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;

Answer 2

过程 TForm1.CopiarTexto1Click(发件人: TObject); 开始 如果 PrintDialog1.Execute 那么 打印; 结束；