delphi - TPrintDialog 和阅读方向参数

Question

是否可以从用户选择的页面方向(水平/垂直)读取TPrintDialog？

在经典解决方案中:

if PrintDialog1.Execute() then
begin
  Printer.Orientation := poLandscape //I want read this parameter from PrintDialog

  Printer.BeginDoc;
  ...
  Printer.EndDoc;
end;

我在 TPrintDialog 中找不到方向。

Answer 1

TPrintDialog 不提供该信息。相反，它允许用户选择打印机、打印范围和份数。

当您显示TPrintDialog时，用户可以选择设置其所选打印机的属性，包括页面方向。然后，您需要从用于执行打印的 TPrinter 对象中读取该信息。

查看您的代码，您已经在使用代表所选打印机的全局 Printer 对象。该对象已经具有用户指定的方向。换句话说，您只需删除尝试分配给 Printer.Orientation 的代码行，因为该属性已被设置。