如何在delphi中打印表单

Question

我想在delphi中打印一个表单，我不知道该怎么做。我试过摆弄打印对话框但我无法打印任何东西。

感谢任何帮助。

Answer 1

您只需拨打TForm的{​​{3}}方法即可。使用Print属性可以更好地控制打印的缩放方式。

打印对话框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;