如何在Delphi中打印表单？

发布时间：2020-12-15 04:23:27 所属栏目：大数据来源：网络整理

导读：在网上搜索了大约半个小时后,我决定寻求帮助. 目前我正在使用此代码： procedure TViewSalesActivity.btnPrintClick(Sender: TObject);begin with TPrintDialog.Create(nil) do ViewSalesActivity.PrintScale:= 1.5 try if Execute then ViewSalesActivity.P

在网上搜索了大约半个小时后,我决定寻求帮助.
目前我正在使用此代码：

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;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!