如何在delphi中打印一个表格

Question

我想在delphi中打印一个表格，我不知道该如何去做。我尝试过打印对话框，但我无法打印任何东西。

任何帮助表示赞赏。

Answer 1

您可以简单地调用TForm的Print方法。使用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;