使用 Staples 在 MS-Word 中进行 Delphi 打印答案

【问题标题】：Delphi Print in MS-Word using Staples使用 Staples 在 MS-Word 中进行 Delphi 打印
【发布时间】：2013-09-17 06:12:30
【问题描述】：

我正在尝试在 MS-Word 中打印文档。通过 TWordApplication 或 OleVariant 对我来说都可以。我们的打印机可以选择打印。我们使用具有订书钉功能的施乐打印机。当我手动完成所有操作时，它当然可以正常工作。当我从代码中执行此操作时，我似乎无法使其工作。

据我所知，Delphi 本身没有直接设置订书钉的连接。不是来自代码，也不是来自 MS-Word。我在打印机上设置了 2 种类型的打印作业（高级设置）。一种用于普通打印，一种用于使用 1 个订书钉打印。对于这两种设置，我都进行了导出。然后我尝试在我需要的地方导入设置。不幸的是，打印机驱动程序似乎不喜欢我正在做的事情。每次我尝试导入订书钉的设置时，驱动程序似乎都会从注册表中删除导入并使用其默认值。在我尝试以任何方式覆盖条目“DevMode”后，注册表中的条目被删除，打印机进入默认模式。

我尝试导入注册表文件，但失败了。我尝试从注册表文件中导入值并使用 WriteBinaryData 写入它，但这会删除 DevMode 条目。我试图从注册表中保存我创建的配置文件信息的另一个注册表值复制注册表值。但是，当我尝试这样做时，似乎什么也没发生。

任何人都可以帮助我解决这个问题，据我所知，我尝试了所有方法，但我似乎无法让它发挥作用。也可能是我对 WriteBinaryData 和 ReadBinaryData 做错了。如果有人能给我一个可行的例子，我会非常感激。

我使用 Delphi XE2。

TIA

【问题讨论】：

我什至无法说出问题所在。您想对印刷进行编码吗？或者您想编写打印机配置设置的定义？
@JanDoggen，在发表这样的评论之前，您可能需要阅读一下。对我来说，这是非常冒犯的。此外，我的帖子说明了我的要求。如果我发布我使用的代码，那将毫无用处，因为我知道它不会起作用，只会把你可能发布的答案放在错误的方向。

标签： delphi printing ms-word

【解决方案1】：

DEVMODE 结构由打印机驱动程序内部使用，它包括内部数据（甚至 驱动程序堆），除非您有制造商提供的详细 HOWTO 表，否则不得修改。您要实现的目标需要比通过 OLE 到达打印机更接近硬件的观点，而且 - 很差 - 如果制造商没有为此直接提供 API。（通常他们不会。）

【讨论】：

【解决方案2】：

在 Word 中创建一个执行您想要的操作的宏，然后将该宏复制到您的程序中。显然，您必须对语法进行一定程度的更改。此外，Word（和 Excel）中的宏使用在这些程序中定义但不在 Delphi 中定义的常量，因此您必须发现它们的值是什么，然后在程序中使用这些值。

【讨论】：

在 office 2003 中这是不可能的。当您访问打印机驱动程序选项并使用宏去那里时，在您关闭对话框后，在 VBA 中，只有 1 行代码。那行说...启动打印机对话框。也许 Office 2013 就是这样做的，但我只能在明天上班时测试。
@user2786317：运行“设置打印机”选项时录制宏。这可能是您设置“staples”选项的地方，宏应该包含设置代码。运行“设置打印机”后，运行“打印”。
用 Office 2013 对其进行了测试。Office 2013 没有得到 1 行代码，而是什么也不返回。也不应该，因为 Office 2013 没有支持打印的代码。这是使用打印机的 API 完成的。

【解决方案3】：

您可以使用您的打印机驱动程序配置启用订书钉吗？如果是这样，请通过在 windows 上安装两次打印机来规避此问题，一次有订书钉，一个没有订书钉，然后在打印时选择您想要的打印机。 Word 在 COM API 中有一个属性。我自己用这种方法来选择不同的纸盘。

【讨论】：

很遗憾，我做不到。我们曾经按照您的建议解决此问题，但现在我们只有 1 个可用队列。我不能再复制那个。我可以连接到打印机的 IP 并使其成为本地打印机，但并非每台以这种方式连接的 PC 在打印机对话框中都有装订选项。有些会，有些不会。