delphi - 如何获取所有纸张尺寸名称和对应的像素尺寸？

Question

我正在编写一个所见即所得页面设计器应用程序，它允许用户将图像和文本拖放到设计器面板上，然后将面板打印为 PDF。

在我的应用程序的页面设置选项中，用户需要选择页面大小，然后根据所选的页面大小，它将在屏幕上显示一个根据尺寸调整大小的面板(例如，选择的 A4 = 8.5 x 11 英寸)面板的大小将根据这些像素尺寸进行调整)。

然后，当用户单击“打印”时，面板的内容将被绘制为具有所选尺寸的 PDF 文件。

我正在使用 wPDF 组件集，特别是 TWPPDFPrinter 组件来创建 PDF。

我的问题:

1. 如何获取所有纸张尺寸名称的列表，然后如何获取 wPDFPrinter 对应的尺寸？

提前致谢。

Answer 1

您可以使用 EnumForms 和查询本地打印服务器来获取纸张尺寸列表。请参阅this question