delphi - 如何在Delphi中打印表格？

在网上搜索了大约半小时后，我决定寻求帮助。
目前，我正在使用此代码:

procedure TViewSalesActivity.btnPrintClick(Sender: TObject);
begin
  with TPrintDialog.Create(nil) do
  ViewSalesActivity.PrintScale:= 1.5
  try
   if Execute then
     ViewSalesActivity.Print;
 finally
   Free;
 end;
end;

打印整个表格。
表单包括按钮，文本，标题和编辑框等。

唯一的问题是打印输出是按比例缩放计算机窗口的。太小了。它也卡在页面的左上角。有什么办法可以使其占据整个页面/页面的大部分？

最佳答案

假设哪个ViewSalesActivity变量是TForm后代，请尝试将 PrintScale 属性设置为poPrintToFit

 ViewSalesActivity.PrintScale:=poPrintToFit;
 ViewSalesActivity.Print;