您可以简单地调用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;

字符串

这是您可以打印表单的方式：

procedure TForm1.CopiarTexto1Click(Sender: TObject);
begin
  if PrintDialog1.Execute then
    print;
end;

字符串